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eREM _ 
IDENTIFICATION 
PRODUCT CODE: AC-9176E-MC 
PRODUCT NAME: CZRHBEO MASSBUS I/0 AND CONTROLLER DIAGNOSTIC 
DATE CREATED: 1=JUN=79 
MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 

WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 

BY DIGITAL-EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION 
ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR 

IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURMISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 

FOR THe USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 

THAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1975, 1979 DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THIS PROGRAM WAS CREATED TO TEST RH11 AND RH70 MASSBUS 
a eats WITH AN RH11-TB (MASSBUS SIMULATOR) ATTACHED 


*-. TO GET MAXIMUM RESULTS FROM THE TEST ALLOW PASS1 TO BE 
COMPLETED SO THAT ALL INFORMATION POSSIBLE HAS BEEN RE- 


PORTED ABOUT ANY ERROR, THEN LOOP ON DESIRED ERRORS. 


IN THE EVENT OF AN ERROR, INORDER TO GIVE COMPLETE 
INFORMATION ALL ERROR BITS ARE CHECKED TO SEE THAT 

NO OTHER ERROR OCCURED. IF AN eae) OCCURED IT WILL 

BE REPORTED BY ‘WHYFO'' AND ‘WwAT 

WHYFO TELLS WHAT REGISTER THE ERROR BIT WAS FOUND IN AND 
ahi hy TELLS WHAT THE NUMBER OF THE ERROR BITS 

Ww 7 


EXAMPLE : 
RHCS1 HAS AN ERROR BIT SET 
ie THE NUMBER OF THE EXTRA BITS 


\RHCS2 HAS AN ERROR BIT SET 


alia ARE THE NUMBER OF THE EXTRA BITS 


END EXAMPLE 


THIS RRINTOUT SAYS THAT TRE AND SC_IS SET IN RHCS1 
AND THAT DATA LATE WAS SET IN RiTS2. 


SEQ 0002 
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105 Ln 1S DONE TO GIVE ONLY VALID yy) tine 
106 A_COMBINATION OF GOOD AND BAD DAT 
107 . REQUIREMENTS 


HARDWARE 


THIS PROGRAM ASSUMES THE FOLLOWING IS IN PROPER WORKING 
CONDITION: 


1. CPU 
2. 16K OF CORE MEMORY 
3. RH'1-TB MASSBUS SUMULATOR 


SOF TWARE 


USING STARTING ADDRESS 200 ASSUMES A BASE ADDRESS OF 
160100 AND A VECTOR OF 774. THE PROGRAM WILL CHECK FOR 
ADDITIONAL RH'S AT ADDRESSES 160200, 160300, AND 160400 
RESPECTIVELY. IF ANY OF THESE EXIST, THE PROGRAM 

WILL DO MULTIPLE RH TESTING. MULTIPLE RH TESTING (SEE , 
TEST 77) 1S NOT POSSIBLE AT ADDRESSES OTHER THAN THE 
FOUR ADDRESSES AT 160100 THRU 180400. 


IF NO CHANGES IN ADDRESS ARE “. AN ALTERNATE STARTING 
ADDRESS OF 204 CAN BE USED BUT THE PROGRAM MUST HAVE BEEN 
STARTED AT LEAST ONCE AT ADDRESS 200 OR 210. 

STARTING ADDRESS 210 ALOWS YOU TO SPECIFY THE BASE 
ADDRESS,VECTOR ADDRESS, AND HOW MANY REGISTERS YOU 


~— 
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Vv 


ARE JUMPERED FOR. THE NUMBER OF REGISTERS JUMPERED 
REFERS TO THE NUMBER OF DEVICE REGISTERS (OCTAL) 

BEGINNING WITH RHCS1 UP TO BUT NOT INCLUDING RHBAE. 
Satine te 210 AT A TIME CAN BE TESTED USING STARTING 


PROGRAM DESCRIPTION 


THIS PROGRAM WAS ASSEMBLED WITH MACY11 USING PDP=11 MAINDEC 
SYSMAC PACKAGE (DZQAC-3). 


IN TESTING ONE CONTROLLER, THE FIRST PASS TAKES ABOUT 
5 SECONDS AND SUBSEQUENT PASSES TAKE ABOUT 10 MINUTES 
IF ITERATIONS ARE NOT INHIBITED. 

SWITCH OPTIONS 


SWITCH USE 


HALT ON ERROR 


TEST 
ERROR TYPEOUTS 
ITERATIONS 


— oe oo 
ANNAN 
DOdWNAWRW 


LCOP ON 
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8 LOOP ON TEST IN SWR<7:0> 
as 1 TO BE USED IF DUAL PORT USED 
INHIBITS THE PRINTING OF WATBIT 


RRR EERE KEKE RARER EEE REE EKER KEK 


13,8,AND 0 INHIBIT WATBIT PRINTOUT 


RRR KEK KKK KER KERR KERR EKER 


3.2 SYSMAC ROUTINES (USED) 


i "t CATCH, COMMON TAGS, SWRHI, SWRLO, SETUP SCOPE, 
TYPE, TRAP, READ, ERROR, TYPE OCTAL, TYPE DECIMAL, POWER, 
EOP, KT11, HEADER, ERROR TYPE, READ OCTAL, ACT11 HOOKS. 


Hag ARE THE SYSMAC ROUTINES INCORPORATED IN THIS PRO- 


4.0 TEST DESCRIPTIONS’ 


TEST 1 = THIS IS THE RH ADDRESS DECODE TEST.: THIS PROGRAM 
WILL CHECK THAT AN RH IS ON THE BUS AND THAT A TESTER 
IS CONNECTED TO IT. IF NO RH IS FOUND THE OPERATOR 
WILL BE ALLOWED TO KEY IN THE ADDRESS FOR THE RH HE 
HAS CONNECTED TO THE BUS. 


TEST 2 = CLEAR TEST. THIS TEST CHECKS THAT ALL ERROR BITS 
ARE CLEARED AFTER THE CLEAR BIT WAS LOADED INTO 
RHCS2 REGISTER. THIS TEST IS ALSO ENTERED AT THE 
LABLE CLEER AT THE END OF ALL THE ERROR BIT TESTS 
TO SEE THAT A CLEAR WILL CLEAR THE ,ERROR BIT SET. 
THE TEST IS ENTERED HERE IF THE ERROR BIT BEING 
Air hie dere NOT SET TO SEE IF ANY OTHER ERROR 


TEST 3 - THIS TEST SEES IF THE TESTER IS CONNECTED. THIS 
TEST SEES IF THE DEVICE CODE IS A 40 TO SAY AN 
PH SIMULATOR IS ATTACHED. 


TEST 4 = WC CLEAR TEST. THIS TEST WILL SEE THAT WHEN A 
' ae IS GIVEN THE WORD COUNT REGISTER REMAINS THE 


TEST 5 = RHBA CLEAR TEST. THIS TEST SEES THAT WHEN A CLEAR 
IS GENERATED THE BUS ADDRESS REGISTER IS CLEARED. 


TEST 6 ~ RHBAE CLEAR TEST. THIS TEST CHECKS THAT WHEN A 
CLEAR IS GENERATED THE BUS ADDRESS EXTENSION REG~ 
ISTER IS CLEARED. 


TEST 7 = RHDB CLEAR TEST. THIS TEST CHECKS THAT WHEN A 
CLEAR IS GENERATED OUTPUT READY IS NEGATED. 


TEST 10 = PROM REGISTER DECODE TEST. THIS TEST CHECKS 
THAT THE PROM CAN ACCESS ALL REGISTERS. 


TEST 11 = RHCS3 TEST. THIS TEST CHECKS THE st BITS 
ay IN THE RHCS3 REGISTER CAN BE CLEARED AND SET 


SEQ 0004 
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TEST 12 = RHWC BIT TEST. THIS TEST CHECKS THE WORD COUNT 
REGISTER TO SEE IF ALL BITS CAN BE SET AND CLEARED 
AND CHECKS THE REGISTER USING ALTERNATE BITS SET 
(52525) AND USING (125252) TO MAKE SURE IT WORKS 
WITH ALTERNATE PATTERN. 


~ RHBAE BIT TEST. THIS TEST TESTS THE RHBAE REG- 
ISTER ONLY IF THE RH IS AN RH70. RH11'S DO NOT 
HAVE AN RHBAE REGISTER. 


~- RHBA BIT TEST. THIS TEST TESTS THE BUS ADDRESS 
REGISTER BY FIRST ALTERNATLY SETTING AND CLEARING 
BITS IN THE BA REGISTER AND THEN BY USING AN 
ALTERNATE BIT PATTERN (52525) AND AN OPPOSITE 

BIT PATTERN (125252). 


~- RHDB BIT TEST. THIS TEST TESTS THE RH DATA BUF- 
FER REGISTER BY FIRST ALTERNATLY SETTING AND RE- 
SETTING BITS IN THE RHDB REGISTER AND THEN BY USING 
AN ALTERNATE BIT PATTERN (52525) AND AN OPPOSITE 
ALTERNATE BIT PATTERN (125252). 


~ RHWC OPERATIONAL TEST. THIS TEST CHECKS THAT 
WHEN THE WORD COUNT REGISTER IS INCREMENTED IT IS 
CARRIED TO THE HIGHEST BIT AND IS RETURNED TO ZERO. 


~- RHBA OPERATIONAL TEST. THIS TEST CHECKS THAT 
THE BUS ADDRESS REGISTER WILL CARRY THROUGH TO 

THE HIGHEST BIT_IN THE BUS ADDRESS EXTENSION REG~ 
ISTER OR BIT A17 IN THE RHCS1 REGISTER AFTER IT IS 
INCREMENTED. 


- NEM, TRE, SC BIT TEST. THIS TEST WILL CHECK 
THAT NON-EXISTING MEMORY WILL SET THE TRE AND SC 
BIT IN RHCS1 REGISTER. 


~ WCE, TRE, SC BIT TEST. THIS TEST WILL CHECK 
THAT TRE AND SC SET WHEN A WRITE CHECK ERROR OCCURS 
W 


- MDPE, TRE AND SC BIT TEST. THIS TEST CHECKS 
THAT MDPE CAN BE SET IN RHCS2, AND THAT MDPE SETS 
TRE AND SC IN THE RHCS1 REGISTER. 


~ UPE, TRE, SC ERROR TEST (RH11). THIS TEST CHECKS 
THE UPE BIT IN RHCS2 TO SEE IF IT SETS AND WHEN IT 
IT SETS IS TRE AND SC BITS SET IN RHCS1. 


~ UPE, TRE, SC ERROR TEST (RH70). THIS TEST CHECKS 
THE UPE BIT_IN RHCS2 TO SEE IF IT SETS AND WHEN 
IT SETS IS TRE AND SC BITS SET IN RHCS1. 


~ NED BIT TEST. THIS TEST wILL CHECK THAT NED 
(NONEXISTANT DRIVE) SETS TRE AND SC BITS IN RHCS1. 
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TEST 26 = MXF, TRE AND SC BIT TEST. THIS TEST WILL CHECK 
es AT MxF (MISSED TRANSFER ERROR) WILL SET TRE AND 


TEST 27 = PGE ERROR BIT TEST. THIS TEST FORCES PGE TO 
Rast RHCS2 AND VERIFYS TRE AND SC IS SET IN 


TEST 30 = MXF, TRE AND SC BIT TEST (RH11 ONLY). THIS TEST 
SEES IF MXF CAN BE SET BY A MOVE INSTRUCTION AND 
THAT TRE AND SC ARE SET IN RHCS1. MXF CAN BE SET 
THIS WAY_IN AN RH11 BIT CAN NOT BE SET THIS WAY 
IN AN RH70, 


31 - MCPE AND SC ERROR TEST. THIS TEST CHECKS THAT 
ig Boe, BE SET IN RHCS1 AND THAT MCPE SETS SC 


32-52 = DOUBLE TESTS. THESE TESTS 
CHECK DBL_IN RHCS3 WITH READ FWD AND REV, WRITE 
FWD AND REV AND WITH BAI SET IN RHCS2. OPERATION 
BEING PERFORMED WILL BE PRINTED OUT IN ERROR 
MESSAGE. RH70 ONLY. 


r 53 - WCE EW ERROR TEST. THIS TEST CHECKS THAT WCELO 
WILL SET IN RHCS3 AND THAT WCE SETS IN RHCS1. IT 
ALSO CHECKS THAT WCEHI DOES NOT SET WITH WCELO 
IN RHCS3 RH70 ONLY. 


54 - WCE OW ERROR TEST (WCEHI). THIS TEST CHECKS THAT 
WCEH] SETS IN RHCS3 AND THAT WCE SETS IN RHCS1, IT 
ALSO TESTS THAT WCELO DOES NOT SET WITH WCEHI. 
(RH70 ONLY) 


55 = INTERRUPT ENABLE TEST. THIS TEST VERIFYS THAT 
IE WILL SET IN RHCS1 AND IT WILL CAUSE AN INTERRUPT 
WHEN RDY IS SET. 


56-75 ~ READ AND WRITE OPERATIONAL TESTS. THESF TESTS 
VERIFY ALL READ AND WRITE CODES WHETHER IT BE A 
READ REV. OR FWD OR A WRITE REV. OR FWD. DURING 
THESE TESTS THE TESTER TIMING IS MARGINED AND 
NO ERRORS SHOULD OCCUR. 


- THIS IS THE LARGE TRANSFER TEST , IT TESTS 
hn Be 70 OR 11 DOING A 671 WORD TRANSFER FOR 


~ THIS IS NOT A TEST BUT IS THE ROUTINE THAT 
ALLOWS THE DIAGNOSTIC TO TEST 4 RH'S IF PRESENT. 


WANNWANAW 


NONPOPNY 2 a RS 
WoO OONOW 


ERR EERE EEE REE EERE EEE ER 


ECO HISTORY 





H 1 
MASSBUS RH70 AND RH11 ewan: MACY11 30A(1052) 12=JUL=79 10:46 PAGE 8 
CZRHBE.P11 O7=JUN=79 13:4 


CHGE1 = ADDED CODE TO MAKE BOTH WRITE LOC'S IDENTICAL 
CHGE2 ~ CHANGED BIT8 FROM LOC TO DATA REFERENCE 
CHGE3 = CHANGED BITO FROM LOC TO DATA REFERENCE 


(AAS SASSER RARER EERE REESE SER ESE REESE SE ESS 


.TITLE MASSBUS RH70 AND RH11 DIAGNOSTIC 
*COPYRIGHT (C) 1976 

*DIGITAL EQUIPMENT CORP. 

STAD» MASS. 01754 

“PROGRAM BY WN D*ENTREMONT 


“THIS PROGRAM WAS ASSEMBLED USING og | PDP-11 MAINDEC SYSMAC 
SPAKE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 


* SBITL OPERATIONAL SWITCH SETTINGS 
* 
SWITCH 


’ Be Be Be Be Be .. Be Be 


* 
.* HALT ON ERROR 
;* 14 LOOP ON TEST 
* 


INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 


ed 8 LOOP ON TEST IN SWR<7:0> 
-SBTTL BASIC DEF INITIONS 


z*INITIAL ADDRESS OF THE STACK POINTER *** 750 *x* 
000750 STACK= 750 
«EQUIV EMT,ERROR 7sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;sBASIC DEFINITION OF SCOPE CALL 


3 *MISCELLANEOUS DEFINITIONS 
000011 HT= 11 see FOR at writy TAB 
;CODE FOR LINE FEED 
:CODE FOR CARRIAGE RETURN 
00 CODE FOR CARRIAGE RETURN=LINE FEED 
177776 P 3 zPROCESSOR STATUS WORD 


177774 STACK LIMIT REGISTER 

177772 3 ;PROGRAM INTERRUPT REQUEST REGISTER 
177570 - ggHARDWARE SWITCH REGISTER 

177570 177570 : ;HARDWARE DISPLAY REGISTER 


> *GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= %0 ;GENERAL REGISTER 
GENERAL REGISTER 
7;GENERAL REGISTER 
7 :GENERAL “fGISTER 
7 7GENERAL REGISTER 
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000005 
000006 
000007 
006 


000340 


100000 


000001 


100000 
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BASIC DEFINITIONS 


R5= %5 
R6= %6 
R7= %7 
SP= %6 
p(= %7 
s*PRIORITY LEVEL 
PRO= 0 
PR1= 40 
PR2= 100 
PR3= 140 
PR4= 200 
PR5= 240 
PR6= 300 
PR7= 340 
Sw 100 
Sw14= 40000 
Sw13= 20000 
SWwi2= 10000 
Sw11= 4000 
Sw10= 2000 
SwOo9= 1000 
SwO8= 400 
Swo7= 200 
SwO6= 100 
SwOS= 40 
Sw0O4= 20 
SwOo3= 10 
SWwO2= 4 
Swol= 2 
SwOoO= 1 


“EQUIV SwWO00; SwO 
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;zGENERAL REGISTER 
3;GENERAL REGISTER 
;:GENERAL REGISTER 
3s: STACK POINTER 


3 zPROGRAM COUNTER 
DEFINITIONS 


> PRIORITY 
7zPRIORITY 
73zPRIORITY 
;zPRIORITY 
7 :PRIORITY 


;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
0000 


BIT15= 


BIT11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
B1T07= 200 
BITO6= 100 


NOUS WN-O 


SEQ 0008 
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-EQUIV BITOO,BITO 


ate *"CPU'’ TRAP VECTOR Ryn oe 
RVEC= 4 TIME OUT AND OTHER ERRORS 
:SRESERVED AND ILLEGAL INSTRUCTIONS 


7: TRACE TRAP 

; sBREAKPOINT TRAP (BPT? 

eee tee TRAP (IOT) **SCOPE** 

;sPOWER FAIL 

ec Fearon TRAP (EMT) **ERROR** 
;""TRAP"' TRAP 


::TTY KEYBOARD VECTOR 

:;TTY PRINTER VECTOR 
PIRQVEC=240 ;zPROGRAM INTERRUPT REQUEST VECTOR 
-SBTTL TRAP CATCHER 


000000 -=0 

:*ALL UNUSED LOCATIONS FROM 4 - iy 3 woe A **.+2,HALT" 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

000174 Siete 5 CONTA 0 TO. CATCH IMPROPERLY LOADED VECTORS ~ 


000000 DISPREG: WORD 0 izSOFTWARE DISPLAY REGISTER 
000000 WREG: _.WORD 0 3zSOFTWARE SWITCH REGISTER 
*SBTTL STARTING ADDRESS(ES) 
dE 004176 JMP ‘ @ABEGINI :zJUMP TO STARTING ADDRESS OF PROGRAM 
004144 Jn @ABEGIN 
000137 004152 JMP @ABE GINS 
4 FREER ERR RRR REE REE ERE EEE KEE KER ER EERE REE ERK EEE 
“SBTTL MEMORY Pataca DEFINITIONS 
:*KT11 VECTOR ADDRESS 
000250 MMVEC= 250 . 
3*KT11 STATUS REGISTER ADDRESSES 
177572 SRO= 177572 


177574 SR1= 177574 
1.77576 . SR2= 177576 
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000046 
000052 
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172516 


— ed et od od ow ow 


ad coal cae cae ell cn el ee 
Ninininininwnn 


000214 
000046 
046342 
000052 
000000 
000214 
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SR3= 172516 

3*KERNEL ‘'I'' PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 

KIPDR1= 172302 

KIPDR2= 172304 

KIPDR3= 172306 

KIPDR4= 172310 

KIPDRS5= 172312 

KIPDR6= 172374 

KIPDR7= 172316 

3*KERNEL ''i'' PAGE ADDRESS REGISTERS 
KIPARO= 172340 

KIPAR1= 172342 

KIPAR2= 172344 

KIPAR3S= 172346 

KIPAR4= 172350 


KIPAR7= 172356 


FEKETE RR EK EKER KEKE KEE RR REE 


* SBTTL ACT11 HOOKS 


FREE RITE KKK RR KK RK KK RT he s 
“HOOKS REQUIRED BY ACT11 
SSyPC= : ZSAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
“WORD O ;i2)SET LOC. 352 TO ZERO 


*=$SVPC +> RESTORE P 


SEQ 0010 


MASSBUS RH70 AND RH11 ey ot hes 
79 13:44 


CZRHBE .P11 


07=JUN- 


L 1 
MACY11 30A(1052) 12-JUL=79 10:46 PAGE 12 
COMMON TAGS 


SEQ 0011 


eee -SBTTL COMMON TAGS 

534 SLEEK EERE RARER EERE REE EEE ERE EK 

535 :*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

ry ;*USED IN THE PROGRAM. 

538 001100 -=1100 

539 001100 SCMTAG: :zSTART OF COMMON TAGS 

540 001100 000000 $PASS: .WORD 0 :zCONTAINS PASS COUNT 

541 001102 STSTNM: .BYTE 0Q :sCONTAINS THE TEST NUMBER 

542 001103 SERFLG: .BYTE 0 ;sCONTAINS ERROR FLAG 

543. 001104 000000 $ICNT: . 0 :-CONTAINS SUBTEST ITERATION COUNT 
544 001106 $LPADR: .WORD 0 :sCONTAINS SCOPE LOOP ADDRESS 

545 001110 000000 SLPERR: .WORD 0 :-CONTAINS SCOPE RETURN FOR ERRORS 
546 001112 SERTTL: .WORD 0 ::CONTAINS TOTAL ERRORS DETECTED 

547 001114 000 SITEMB: .BYTE 0 :sCONTAINS ITEM CONTROL BYTE 

548 001115 001 SERMAX: .BYTE 1 2: CONTAINS MAX. ERRORS PER TEST 

549 001116 000000 SERRPC: .WORD 0 2 :CONTAINS PC OF LAST ERROR INSTRUCTION 
550 001120 000000 $GDADR: .WORD 0 :-CONTAINS ADDRESS OF ‘GOOD’ DATA 

551 001122 000 $BDADR: .WORD 0 3:CONTAINS ADDRESS OF ‘BAD’ DATA ‘ 
552 001124 000000 $GDDAT: .WORD 0 ::CONTAINS ‘GOOD’. DATA : 

553 001126 000000 $BDDAT: .WORD 0 :-CONTAINS ‘BAD’ DATA 

554 001130 000000 «WORD QO : sRESERVED--NOT TO BE USED 

555 001132 000000 -WORD 0 

556 001134 000 $AUTOB: .BYTE 0 3 sAUTOMATIC MODE INDICATOR 

557 001135 000 $INTAG: .BYTE 0 :- INTERRUPT MODE INDICATOR 

558 001136 000000 -WORD 0 

559 001140 177570 «WORD DSWR zADDRESS OF SWITCH REGISTER 

560 001142 177570 DISPLAY: .WORD DDISP ;:ADDRESS OF DISPLAY REGISTER 

561 001144 177560 : 177560 ::TTY KBD STATUS 

562 001146 177562 $TKB: 177562 ;;TTY KBD BUFFER 

563 001150 177564 $TPS: 177564 ::TTY PRINTER STATUS REG. ADDRESS 

5 001152 177566 $TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 

565 001154 $NULL: .BYTE 0 2s CONTAIN S NULL CHARACTER FOR FILLS .~ 
5 1155 002 $FILLS: .BYTE 2 sCONTAINS # OF FILLER CHARACTERS ere 
567 001156 012 $FILLC: .BYTE 12 33 INSERT FILL CHARS. AFTER A ‘LINE FEED" 
568 001157 000 $TPFLG: .BYTE 0 ;""TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
569 001160 000000 SREGAD: 0 >:CONTAINS THE ADDRESS FROM 

570 WHICH ($REGO) WAS OBTAINED 

571 001162 000000 $REGO: .WORD 0 :sCONTAINS (($REGAD) + 

572 $REG1: .WORD 0 ::CONTAINS (($REGAD) +2) 

573 001166 000009 $REG2: .WOR 0 3-CONTAINS (($REGAD) +4) 

574 001170 000000 $REG3: .WORD 0 :sCONTAINS (($REGAD) +6) 

575 001172 000000 $REG4: .WORD 0 2: CONTAINS (($REGAD) +10) 

576 001174 000000 $REGS5: .WORD 0 ONTAINS (($REGAD) +12) 

577 00117€ 000000 $TMPO: . 0 SZUSER DEFINED 

578 1200 000000 $TMP1: .WORD 0 7 :USER DEFINED 

5 001202 000000 $TMP2: .WORD 0 ;:USER DEFINED 

580 1204 000000 $TMP3: .WORD 0 :sUSER DEFINED 

581 001206 000000 $TMP4: .WORD 0 :USER DEFINED 

582 001210 000000 $TMP5: .WORD 0 : /USER DEF INED 

583 001212 000000 $TIMES: 0 MAX. NUMBER OF ITERATIONS 

5 0012 000000 $SESCAPE :0 SZESCAPE ON ERROR ADDRESS 

585 001216 177607 000377 $BELL: .ASCIZ >, + alte a 7:CODE FOR BELL 

586 001222 077 $QUES: .ASCII 2 ;QUESTION MARK 

587 001223 015 $CRLF: .ASCII <i5> 3; CARRIAGE RETURN 
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oes 001224 000012 $LF: eASCIZ = <12> scLINE FEED 


LATA EREREEREEEEEERETEEEEEREARERERR ERE RRR 


SEQ 0012 
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-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
:*TKE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
; *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE hs # 3 PERTINENT. 
TEI: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERR 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
:sPOINTS TO THE DATA HEADER 
:zPOINTS TO THE DATA 

:sPOINTS TO THE DATA FORMAT 


001226 SERRTB: 


: ITEM 1 
091226 E ; CORRECT BIT DID NOT SET 
7 IN RH WORD COUNT REGISTER 


:CORRECT BIT DID NOT SET 
IN BUS ADDRESS EXTENTION 
:REGISTER 


072320 


055140 ; E CORRECT BIT DID NOT SET 
IN BUS ADDRESS REGISTER 
070043 


071774 
072324 


055214 ; E :CORRECT BIT DID NOT SET 
:IN RHDB REGISTER 
070163 


072006 
072330 


055254 E NED DID NOT SET IN 
;RHCS2 REGISTER 
070303 


072020 
001274 072334 


001276 055325 . E zNEM LOGIC TO SET TRE 
“AND SC BITS IN RHCS1? 
*1S NOT WORKING 


001300 070303 
001302 072020 
001304 072334 


001306 055541 , E :NEM BIT DOES NOT READ AS SET 





B 2 
MASSBUS RH70 AND RH11 ‘ein des MACY11 30A(1052) 12=JUL=79 10:46 PAGE 15 
CZRHBE .P11 O7=JUN=79 13:4 ERROR POINTER TABLE SEQ 0014 


001310 070303 
001312 072020 
001314 672334 


901316 055607 EM10 :TRE BIT SET SUT NEM 


sAND SC ARE NOT? 
001320 070303 
901322 072020 
001324 072334 


: 1 
001326 055643 :SC BIT SET BY ATTN OR MCPE 
ERROR OR SC IS SHORTED 
SHOULD HAVE BEEN SET BY NEM AND TRE 
070410 
072032 
072340 


001336 055704 2 ;TRE BIT SET BY NEM BUT SC 
:DID NOT SET, LOGIC BETWEEN 
TRE AND SC NOT WORKING 

001340 070303 

001342 072020 

001344 072334 


001346 955724 :TRE BIT IS SET BUT SC 
READS AS CLEARED. SC 
[LOGIC ASSOCIATED WITH TRE 
:BIT IS NOT WORKING OR SC 
SHAS AN OPEN GOING TO THE BUS 
001350 070303 
001352 072020 
001354 072334 


001356 055773 F :WCE BIT DID NOT SET, BIT 14 IN 
3 “RHCS2 


001360 070303 
001362 072020 
001364 072334 


; 1 
001366 056017 :WCE BIT DID NOT SET BUT 
Be AND SC IN RHCS1 ARE 


001370 070303 
001372 072020 
001374 072334 


; 6 
001376 056043 ;WCE AND SC ERROR BITS ARE 
SET TRE ERROR BIT SHOULD ALSO 
BE SET BUT IT READS AS CLEARED 
: THERE MIGHT BE AN OPEN BETWEEN 





MASSBUS RH70 AND RH11_DIAGNOSTIC 
CZ2R 79 13:44 


HBE .P11 


001400 
001402 
001404 


001406 


001410 
001412 
001414 


001416 
001420 


001422 
001424 


001426 
00143C 


001432 
001434 


001436 


001440 
001442 
001444 


001446 
001450 


001452 
901454 


001456 


07=JUN- 


070303 
072020 
072334 


056063 


070303 
072020 
072334 


056132 
070303 


072020 
072334 


056163 


070303 


072020 
072334 


056212 


070303 
072020 
072334 


056245 


072334 


056264 


MACY11 30A(1052) 


C 
12=JUL=79 


ERROR POINTER TABLE 


: ITEM 


ITEM 


SITEM 


sITEM 


Z ITEM 


SITEM 


2 
10: 


46 PAGE 16 


TRE AND THE BUS 


:WCE AND TRE ARE SET BUT 
:SC BIT READS AS CLEARED 
;LOGIC BETWEEN TRE AND SC 


:NON-EXISTENT MEMORY TEST 
:WHICH PRECEDED THIS TEST 


;UPE DID NOT SET IN RHCS2 


TRE AND SC BITS ARE SET 
sEITHER UPE HAS AN OPEN GOING 
;TO BUS OR TRE AND SC WAS 
SET BY ANOTHER ERROR 


;TRE BIT IS SET, UPE AND SC 
:SHOULD ALSO BE SET BUT THEY 
s;READ AS CLEARED 


;UPE AND TRE ARE SET BUT | 

zSC_ DID NOT SET, LOGIC TO 
:SET SC DOES NOT SEEM TO 

BE WORKING 


NED DID NOT SET IN RHCS2 


SEC 0015 


' D2 
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070303 
072020 
001464 072334 


: 2 
001466 056315 TRE AND SC ARF ‘SET 
;BUT THEY SHOULD HAVE BEEN 
7SET BY NED WHICH READS 
SAS CLEARED 


001470 070303 
001472 072020 
001474 072334 


e 6 vod ’ 
001476 056347 + TRE BIT SET BUT NED 
AND SC BITS READ AS 
SCLEARED. NED SHOULD 
: HAVE SET CAUSING TRE 
SET WHICH IN TURN 
SET SC. LOGIC NOT WORK 
+ ING CORRECTLY 


070303 
072020 
072334 


; 2 . 
056375 3; TRE BIT WAS NOT SET 
‘BY NED. TRE SET LOGIC 
001510 070303 “NOT WORKING 
001512 072620 
001514 072334 


001516 056430 . zMXF BIT DID NOT SET 
IN RHCS2 


001520 070303 
0015221 072020 
001524 072334 


001526 056465 . «MXF BIT SHOULD BE SET 

3 IN RHCS2 BUT IT READS AS 
:CLEARED. TRE AND SC ARE SET 
IN RHCS1. ‘ 


001530 070303 
001532 072020 
001534 072334 


: 3 
001536 056524 TRE BIT IS SET BUT MxF 
sAND SC READ AS CLEARED 


- 





e ¢ 
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CZRHBE .P11 O7=JUN=79 13:4 ERROR POINTER TABLE . ' SEQ 0017 


sMXF AND SC BITS ARE INCORRECT 
001540 070303 


001542 072020 
001544 072334 


; 3 

001546 056553 TRE LOGIC ASSOCIATED WITH 

:MXF IS NOT WORKING 

TRE READS AS CLEARED 

:OR TRE HAS AN OPEN GOING 

:TO THE BUS 
001550 070303 
001552 072020 
001554 072334 


001556 056623 7 TESTER IS NOT CONNECT 
TO THE MASSBUS DEVICE 
; CODE SHOULD BE A 40 
001560 070476 *PC TEST NO. DEVICE CODE 
001562 072042 :SERRPC, $TSTNM,DT,0 


001564 072343 :0,0,0 
001566 056673 : :BIT IN RHCS3 WILL NOT ET 


001570 071631 

001572 072272 

001574 072340 

001576 056725 

001600 °070556 PC TEST NO. FAILING ADDRESS 
001602 072056 7 SERRPC,$TSTNM,RHCS1,0 
001604 072347 30.0.9 


001606 056763 : ;DLT DID NOT SET IN RHCS2 
001610 070553 
001612 072052 
001614 072346 


: 40 
001616 057014 sDLT IS NOT SET IN RHCS2 BUT 
TRE AND SC READ AS SET.TRE 
AND SC MUST HAVE BEEN SET BY A DIFFERENT ERROR 





MASSBUS R70 AND RH11 4g) te? aes 
CZR Pi] 9 13:4 


HBE . 


07=JUN=7 


001620 
001622 
001624 


001626 


001630 
001632 
001634 


. 001636 


001640 
001642 
061644 


001646 
001650 
001652 
001654 


001656 


0071660 
001662 
001664 
001666 
001670 
001672 
001674 
001676 
001700 
001702 
001704 
001706 
001710 


070553 


057154 


070637 
072066 
072352 


057257 


000000 
000000 
600000 


057330 
000000 
000000 
000000 


057374 


000000 


057466 
000000 
000000 
000000 
057541 
000000 
000000 
000000 
057622 


000000 


MACY1? 30A(i052) 


F 
12-JUL<79 


ERROR POINTER TABLE 


7 1TEM 


: ITEM 


7: ITEM 


7 ITEM 


; ITEM 


s ITEM 


SITEM 


EM42 


ooomnr COCO 
SW 
n 
W 


ms 
sf 
S 
o 


ooo mr DOO 
zu 
xs 
wn 


ms 
zo 
nx 
Oo 


ooo 


47 
EM47 


2 
10: 


46 PAGE 19 


sOUTPUT READY IN RHCS2 
:DID NOT SET 


:PC TEST NO. 


.s SERRPC ,$TSTNM,0 


ee NOT LOAD INTO RHWC 


sRHWC DID NOT LOAD ANY BITS (177777) 


sRHWC 
;SOME BITS CLEARED AFTER CLEA® 
;WAS LOADED INTO RHCS2 


ZNON-EXISTANT MEMORY BIT 
SET IN RHCS2 


;RHBA DID NOT CLEAR AFTER CLR 
“WAS LOADED INTO RHCS2 


zsALL BITS DID NOT_LOAD INTO 
;RHBA REGISTER (177776) 


SEQ 0018 


G 2 
MASSBUS RH70 AND RH11_DIAGNOSTIC MACY11 30A(1052)_ 12=JUL=79 10:46 PAGE 20 
CZRHBE .P11 O7=JUN=79 13:44 ERROR POINTER TABLE SEQ 0019 


001712 000000 

001714 000000 

001716 057673 ;LOADING TRE AFER ITS SET DOES NOT 
CLEAR ERRORS 

001720 000 

001722 000000 

001724 000000 


001726 057752 3PGE DID NOT SET IN RHCS2 
001730 000000 0 

001732 000000 

001734 000000 


001736 060003 THE PROM WHILE ACCESSING A 
REGISTER WHICH YOUR TESTER \ 
CANNOT SUPPLY INFORMATION FOR 
SAYS INFORMATION IS PRESENT 

001740 070663 PC TEST NO. ADDRESS CONT 

001742 072074 i; SERRPC,,$TSTNM,BAE , $REGO 


001744 072354 
001746 060156 
001754 000000 
001756 060764 


001764 000000 


001766 060171 
001770 ; 
001772 

001774 000000 


001776 (60176 
000000 
000000 
900000 


060204 
000000 
002012 000000 
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002014 0 


sITEM 60 
~~ 


002926 060217 
002030 000000 


002032 000000 
002034 000000 


000000 
060231 
062054 000000 


002056 060237 
000000 
000000 
000000 


060244 
000000 


ee ee ee 
elelelelelelele) 
ad ae ced ah ad aed ed a 
ONC AEWH 


062074 


002076 060252 
002100 000000 
000000 
000000 


000000 


060265 


0 
002124 000000 








MASSBUS RH70 AND RH11 mit 


CZRHBE .P17 


002126 


062130 
002132 
0027 34 


002136 


002140 
002142 
002144 


002146 
002150 
002152 
002154 
002156 


002160 
002162 
002164 


902166 


002170 


902176 
002200 
002202 
002204 
002206 
002210 
002212 
002214 


07=JUN=7' 


060273 


071657 
072302 
072406 


060362 


071041 
072110 
072361 


060417 


071041 
072110 
072361 
060446 


071041 
072110 
072361 


060474 


071041 
072110 
07236! 


060524 
071130 
072120 
072364 
060631 
067602 


071750 
072314 


MACY11 etek tee 


ERROR POINTER T 


sITEM 


7 ITEM 


Z ITEM 


7; ITEM 


SITEM 


ZITEM 


7 1TEM 


EM71 


2 
746 PAGE 22 


aay ik NO DOES NOT EQUAL 
A 7 IN RHMR2 AFTER A CLEAR 


sRHCS1 HAS AN ERROR BIT 
SET AFTER CLEAR OPERATION 


:PC TEST NO. CONTENTS OF REGISTER 


ERROR BIT SET IN RHCS2 
sAFTER A CLEAR OPERATION 


sERROR BIT SET IN RHER 
; TESTER ERROR REGISTER.AFTER 
ZA CLEAR OPERATION 


ERROR BIT SET IN RHST 
sAFTER A CLEAR OPERATION 


:RHBA INCREMENTED BUT DID NOT CARRY 
:OVER TO THE RHBAE REGISTER 


READY DID NOT SET AND RHWC 
:DID NOT INCREMENTM DOING A WRITE OPERATION 


SEQ 0021 


MASSBUS RH70 AND RH11_DIAGNOSTIC 


CZRHBE .P11 


1094 


1099 


~ 


WWNNWANWANANWPOPOMNNPN Tv no <2 RS RPS a os | 9 
DOONAN RW 2@SDOAAU RAN OO OO MOURA SOOO NAR WU OSRURARADSS 


mk i a na od ot os 


4 


ss i kk 5 ag a kd os d oh i“) 3 od ot oJ oJ ed 
SHKHRHKHKRHRHARHI LS 


— So es 


002252 
002254 


002256 


002260 
002262 
002 


002324 
002326 


O7=JUN=79 13:44 


060743 
067722 


071762 
072320 


072320 
061075 


061126 


067602 
071750 
072314 


061304 


000000 


000000 
000000 


061475 
071166 


072132 
072370 


072370 
061570 
000000 
000000 
009000 
061677 
000000 
000000 
000000 


061771 


MACY11 30A(1052) 
ERROR POINTER TABL 


; ITEM 


: ITEM 


sITEM 


7 ITEM 


7 ITEM 


Z ITEM 


Z ITEM 


ZITEM 


ITEM 


Z ITEM 


J 2 
penerr 10:46 PAGE 23 


:RHBA DID NOT CLEAR AFTER CLR 
WAS LOADED INTO RHCS2 


sREADY DID NOT SET IN RH¢S1 


:DOING A WRITE OPERATION RDY 
:DID NOT SET AND WC DID NOT INCREMENT 
:BUT INFO WAS WRITTEN TO TESTER 


:DOING A WRITE OPERATION RDY 

:DID NOT SET AND WC WAS NOT INCREMENTED 
;AND INFO WAS NOT WRITTEN TO TESTER 

; (WRITE OPERATION DID NOT WORK) 


sRHBAE IS MESSED UP IT SHOULD 
EQUAL 40,1T DOES NOT = 37(OLD) 
zAND IT DOES NOT = 0 


;RHBAE DID NOT GET !NCREMENTED 


;READ REV. OPERATIONS DID NOT 
at) Aga TESTER TO STORAGE LOCATION 


;RHBAE = 0 IT SHOULD = 40 
sAFTER A ONE WORD WRITE 


3A17 DID NOT SET AFTER BA WAS INCREMENTED 


SEQ 0022 


kK 2 
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002330 071233 . 
2332 072146 
072370 


— 
oo" 
wi 
oO 


:BA DID NOT INCREMENT 


072370 


; 11 
—" _ ¢RHBA INCREMENTED BUT IT DID 
071233 ’ z:NOT CARRY TO A16 + A17 IN RHCS1 


072146 
072370 


; 1 ’ 
062166 | ;QOUTPUT READY WAS NOT NEGATED 
000000 sAFTER CLR WAS LOADED INTO RHCS2 


000000 
00c000 


062264 
000000 


AAAI 
WONAUEWR— 


ze 


sALL BITS DID NOT READ TO STORAGE 

:LOCATION (RBUF) DURING A READ REV. OPERATION 
000000 ; 
000000 
062376 
000: 


000 
000000 
000000 


ze 


;MDPE DID NOT SET IN RHCS2 


ooon-ooo'n-ooo 
N 


062430 : ;INFO DID NOT WITE TO TESTER 
0rnsss | [DOING A WRITE REV. OPERATION 


072250 
072364 


, $ 2 
062526 z TRE AND SC DO NOT SEEM TO HAVE 
070410 : 


072032 
072340 


TRE IS ONLY BIT SET ,MDPE AND 
:SC SHOULD ALSO BE SET 


RRANSLSSSLKARAVSS SSIVAARANASSKISALATSS 


:SC NOT SET AFTER MDPE AND TRE SET 


072364 


: 123 ' 
002446 062704 ;TRE AND SC WERE SET EITHER BY 
* AN ERROR OTHER THAN PGE,OR PGE 


RAVLSSELE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
; 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
j 
1 
1 
1 
2 
2 
2 
2 
2 
2 


oS 
Ww 
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HAS AN OPEN GOING TO THE BUS 


SIF 


x 1,8) 
— 
Nm 
& 


;DBL_NOT SET AFTER A 4 WORD WRITE 
FROM AN EVEN ADDRESS 


oo Mm -O0OoO 


x 1,8) 
=u 
N 
w 


BBL SET AFTER DOING A 1 WORD WRITE 
FROM AN EVEN ADDRESS 


me nk ed td od 8 2“ 2 ot od 
MNMNNNMPPeProfnonofronvnrnrw 
NORD 2 St Ss I So se 

"OVO ONAOUS WHO 

ooo moO 


;DBL SET ON A 3 WORD WRITE 
:FROM AN EVEN ADDRESS 


m— 
x 4,8) 
—O 
as) 
o 


x 48) 
N 


:DBL_DID NOT SET AFTER A 2 WORD 
:WRITE FROM AN EVEN ADDRESS 


0 
0 
0 
1 
E 
0 
0 
4) 


:MCPE SET BUT SC READS AS CLEARED 


:MCPE DID NOT SET 


072174 
070556 . 
13 


:WCE LO (EW) DID NOT SET IN RHCS3 


072375 a 

063475 WCE HI (OW) SET ALONG WITH 
WCE LO IN RHCS3 

072375 


13 
063576 :WCE LO IS SET IN RHCS3 BUT 
Or) 66 ‘WCE IS NOT SET IN RHCS2 


072204 
072375 
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CZRHBE .P11 O7=JUN=79 13:44 ERROR POINTER TABL SEQ 0025 
1262 002566 063657 EM135 :WCE HI DID NOT SET IN RHCS3 
1263 002570 071364 DH132 
1264 002572 072204 DT132 
1265 002574 072375 DF 132 
1266 ;ITEM = 136 
1267 002576 063713 EM136 WCE HI SET BUT WCE DID NOT SET IN RHCS2 
1268 2 071364 DH132 
1269 002602 072204 DT132 
1270 04 072375 DF 132 
1271 3ITEM = 137 
1272 002606 063774 EM137 sWCE LO SET WITH WCE HI IN RHCS3 
1273 002610 071364 DH132 
1274 002612 072204 DT132 
1275 002614 072375 DF 132 


1276 sITEM = §=140 


MASSBUS _RH70 AND RH11_DIAGNOSTIC 


CZRHBE .P11 O7=JUN=79 13:44 


1289 


BRIT 


002706 


002740 
002742 


064075 


064300 
000000 
000000 
000000 
064354 
000000 
000000 
000000 
064442 
071442 
072222 
072364 
064507 
071500 
072234 
072370 
064560 
071545 


065105 


071545 
072250 


MACY11 30A(1052 
ERROR POINTER T 


7 ITEM 


; ITEM 


7 ITEM 


Z ITEM 


7 ITEM 


7 ITEM 


ZITEM 


Z ITEM 


ZITEM 


7 ITEM 


EM140 


mM -ooOomMm—coOo 
se 
= 
~~ 
— 


x + 


N 2 
) 12=JUL=79 10:46 PAGE 27 
ABLE 
WRITE OPERATION DID NOT INC wC 


BA WAS NOT iNC AFTER A WRITE 

: INFO WAS NOT WRITTEN TO TESTER 
READ OPERATION DID NOT INC wC 

:BA WAS NOT INC AFTER A READ 

: INFO DID NOT READ FROM TESTER 


:THIS IS FOR PRINTED CONTENTS 
OF THE RH REGISTERS 


sALL BITS DID NOT GET TRANSFERED 
;DURING A READ OPERATION 


READ OPERATION DID NOT SEEM TO WORK 
sALL BITS DID NOT WRITE TO TESTER 


;WRITE OPERATION DID NOT WRITE 
“TO TESTER 


SEQ 0026 


MASSBUS_RH70 AND Rt:11 ey o> eb 


CZRHBE .P11 


1 
1337 


WWWG 
RWWG 
Owoc 


RRARAAAAIAARARRERES EEE 
ARWN 2 ODDNAARWU O00 NAUK Wi 


Oe mk yk ny a me a nd dd nd nd ed od od od 0 a et td es 
WIWNWWWNWN N 

CER RMESaee a 

FW -OUmN 


1375 


002744 
002746 
002750 
002752 
002754 


002756 


002764 
002766 
002770 
602772 
002774 
002776 
003000 
603002 
003004 
003006 


003052 
003054 
003056 


07=JUN-79 
072364 
065155 
600000 
000000 
000000 
065241 
000000 
000000 
000000 
065332 
000000 
000000 
000000 
065420 
000000 
000000 
000000 
065511 
000000 
000000 
000000 
065605 
000000 
000000 
000000 
065674 
000000 
000000 
000000 
065763 


00 
000000 
000000 


066052 
000000 
000000 
000000 


066130 


MACY11 30A(1052) 
ERROR POINTER TABLE 


7 1TEM 


; ITEM 


ZITEM 


Z ITEM 


ZITEM 


7 ITEM 


ZITEM 


7 ITEM 


Z ITEM 


Z ITEM 


zw 
~ 


1 


ooo Mm -0C0OO 
zu 
— WW 
uw Ww 
wn Ss 


m-o0O0 m-OoO0O0 mMm— 
zu 
—O 
wn 
oO 


zu 
—-N 
w 
N 


0 
M160 


n-OOO a 


x To. 
— 
oO 


x Ton 
= 
oa 
ae) 


3 
M163 


-Oo0O aati eh OL] 


mm 
soa 
— f~ 
oO 
& 


3 
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;DBL SET ON A 2 WORD TRANSFER 
:WITH BAI SET 


;DBL_SET ON A 1 WORD READ FROM 
:AN EVEN ADDRESS 


:DBL SET ON A 2 WORD WRITE REV 
:WITH BAI SET 


;DBL_ SET ON A 2 WORD WRITE FROM 
:FROM AN ODD ADDRESS 


;DBL_DID NOT SET ON A 2 WORD 
;WRITE REV FROM AN EVEN ADDRESS 


;DBL SET ON A 2 WORD WRITE REV 
;FROM AN ODD ADDRESS 


47>: SET ON A 3 WORD WRITE REV 
FROM AN ODD ADDRESS 


:DBL DID NOT SET ON A 2 WORD 


:DBL SET ON A 2 WORD READ 
FROM AN ODD ADDRESS 


DBL SET ON A 2 WORD READ REV 


SEQ 0027 


£2 
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;FROM AN ODD ADDRESS 


UWI 


:DBL_ DID NOT SET ON A 2 WORD 

READ REV FROM AN EVEN ADDRESS 
000000 
066315 
000000 
000000 
000000 
066374 

003110 slate 


003112 
003114 


=a On 


soa 
oO 
oO 


;DBL_SET ON A 3 WORD READ FROM 
:AN EVEN ADDRESS 


m= -SOoOO Mm O00 Mm —000 
x to. 


so 
N 


;DBL_ DID NOT SET ON A 3 WORD 
READ REV FROM AN EVEN ADDRESS 


o-O0Oo 


003124 072403 


, s 1 
003126 066473 TRE READS AS SET,PGE AND SC 
READ AS CLEARED.PGE AND SC 
SHOULD ALSO BE SET 
003130 000000 
003132 000000 
003134 000000 


066545 
000000 
000000 
000000 
066566 

000 


000 
000000 
000000 


;PGE AND TRE READ AS SET SC 
:READS AS CLEARED 


m-oO0O m—-oCOoOoO 
3N 
—"™ 
N 
Nm 


~~ 
SW 


=~ 
w 


;READY DID NOT CAUSE AN INTRUPT 
:WITH IE SET IN RHCS1 


sn 
— mr. 
N 
~~ 


066652 IE WILL NOT SET IN RHCS1 
000000 

000000 
000000 


066703 


uw 
N 
Ww 


\ 
;IE HAS AN OPEN GOING TO THE BuS } 
\ 


OoomMm—C00M=000 
=n 


003174 
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sITEM 
003176 066743 : ;TRE IS SET DLT AND SC SHOULD ALSO BE SET 


072364 t 
066776 : :DLT AND TRE ARE SET ,SC READS AS CLEARED 


072364 


003216 067043 3 ;HIBITE LOBYTE GATE FOR WC NG 
003220 070637 
003222 072066 
003224 072352 
067125 ‘% ;HIBYTE LOBYTE GATE FOR DB NG 


003234 072352 


: 202 
003236 067207 sHIBYTE LOBYTE GATE FOR BA IS NG 
070637 
072066 
072352 


067271 :RHBA HAS WRONG ADDRESS 
070637 | 
072066 ; | 
072352 ; 


067351 : : TESTER DATA BUFFER HAS WRONG INFO 


072352 : 

067436 : :RH DID NOT INTERUPT 
070637 " 
072066 

072352 


067522 ; ;RHWC SHOULD BE ZERO 


072352 
067546 ; TRANSFER WAS DONE ON PORT 8 
000000 0 
000900 | 
003314 000000 0 
3RH REGISTERS 


RHVEC:776 ; :RH VECTOR ADDRESS 


DLR ee 
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CZRHBE .P11 O7=JUN=79 13:44 ERROR POINTER TAB SEQ 0030 
1501 WORD COUNT REGISTER (RHWC) 
1502 EACH BIT IS CALLED BY BIT NUMBER 
1503 
1504 
1505 
1506 BUS ADDRESS REGISTER (RHBA) 
1507 EACH BIT IS CALLED BY BIT NUMBER 
1508 
1509 
1510 
Fa ;CONTROL AND STATUS REGISTER 2 (RHCS2)- 
1513 000001 US1= 1 ;UNIT SELECT (BIT 40) 
1514 000002 US2= 2 UNIT SELECT (BIT #1) 
1515 000004 US4= 4 UNIT SELECT (BIT #2) 
1516 000010 BAI= 10 ;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
1517 000020 PAT= 20 ; INVERT PARITY CHECK FOR MCPE 
1518 000040 CLR= 40 CLEAR (BIT #5) 
1519 000100 [R= 100 ; INPUT READY (BIT #6) 
1520 000200 OR= 200 OUTPUT READY (BIT #7) 
1521 000400 MPE=- 400 MASS BUS PARITY ERROR (BIT #8) 
1522 001000 MXF = 1000 MISSED TRANSFER ERROR (BIT #9) 
1523 002000 PGE= 2000 ;PROGRAM ERROR (BIT #10) 
1524 004000 NEM= 4000 NON EXISTANT MEMORY (BIT #11) 
1525 010000 NED= 10000 NON EXISTANT DRIVE (BIT #12) 
1526 020000 UPE= 20000 ;UNIBUS PARITY ERROR (BIT #13) , 
1527 040000 je WCE= 40000 WRITE CHECK ERROR (BIT #14) 
iag8 100000 DLT= 100000 ;DATA LATE (BIT #15) 
ioee ;CONTROL AND STATUS REGISTER 3 (RHCS3) 
1532 000001 IPCKO= 1 ; INVERT PARITY,ON LOW BYTE OF EVEN WORD (BIT #0) 
15$3 000002 - IPCK1= 2 INVERT PARITY,ON HI BYTE OF EVEN WORD (BIT #1) 
1534 00000 IPCK2= -4 zy INVERT PARITY,ON LOW BYTE OF ODD WORD(BIT #2) 
1535 000010 IPCK3= 10 INVERT PARITY,ON HI BYTE OF ODD WORD(BIT #3) 
1536 000100 IE3= 100 ; INTERUPT ENABLE,SAME AS BIT 6 OF RHCS1 (BIT #6) 
1537 002000 DBL = 2000 DOUBLE WORD OPERATION,SET WHEN LAST MEMORY TRANSFER WAS 
1538 004000 WCELO= 4000 ;WRITE CHECK ERROR EVEN WORD (BIT 411) 
1539 010000 WCEHI= 10000 WRITE CHECK ERROR ODD WORD (BIT #12) 
1540 020000 DPELO= 20000 + ;DATA PARITY ERROR EVEN WORD (BIT #13) 
1541 040000 DPEHI= 40000 DATA PARITY ERROR ODD WORD (BIT 414) 
1542 100000 APE= 100000 ADDRESS PARITY ERROR (BIT #15) ‘ 
1543 DATA BUFFER REGISTER (RHDB) | 
i EACH BIT IS CALLED BY BIT NUMBER 
1546 
1547 
1548 
1549 
HE Fs CONTROL AND STATUS 1 REGISTER. (#00) 
1552 000001 GO= 1 3GC (BIT #0) 
1553 000100 Ié=- ., 100 ; INTERRUPT ENABLE ‘BIT #6) a 
1554 000200 RDY= 200 sREADY (BIT #7) : 
1555 000400 Al6= 400 HIGH ORDER UNIBUS BITS (BIT #8) 
1556 001000 Al7= 1000. HIGH ORDER UNIBUS BITS (BIT #9) 
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2000 sPORT SELECT (BIT #10) 
4000 sDEVICE AVAILABLE (BIT #11) 
20000 sMASSBUSS PARITY ERROR (BIT #13) 
40000 ; TRANSFER ERROR (BIT #14) 
100 ;TRE BIT FOR A BYTE OPERATION 
100000 100000 SPECIAL CONDITION (BIT 415) 


REGISTER (RHST) (#01) 


000200 ;DRIVE READY (BIT #7) 
000400 :DRIVE PRESENT (BIT #8) 
:MEDIUM ON-LINE (BIT #12) 
POSITIONING gar ¥¢ PROGRESS (BIT #13) 
;COMPOSIT ERROR. (BIT # 
SATTENTION ACTIVE (BIT #15) 


Z ILLEGAL FUNCTION (BIT #0) 
‘REGISTER MODIFICATION REFUSED (BIT #2) 
SCONTROL PARITY ERROR(BIT #3) 

‘DATA PARITY, ERROR(BIT #4) 

SMASSBUS EXCEPTION .WHEN Wak! CAUSES AN ABORT OF A DATA T 


;MASSBUS POWER FAIL (BIT 
:DRIVE TIMING ERROR (BIT #12) 
SOPERATION INCOMPLETE (BIT #13) 
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003320 


52 
003354 


000200 


900001 


000200 


160100 


0 
000000 
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ERROR POINTER TABLE SEG 0032 
\ 

;DIAGNOSTIC REGISTER (RHMRI) (403) 

DMD= 1 ;DIAGINOSTIC MODE (BIT #0) 

MCLK= 2 sMAINTAINCE CLOCK (BIT #1) 

FERR= 4 ;FORCE ERROR (BIT #2) 

ICPA= 10 , ; INVERT CONTROL PARITY,CAUSES PARITY TO BE EVEN WHEN SET 

IDPA= 20 ; INVERT DATA PARITY,CAUSES DATA PARITY TOBE EVEN WHEN SE 

DPCA= 40 ;DISABLE PARITY CHECK, INHIBITS PARITY CHECK ON BOTH C AN 

NEBL= 100 :NO END OF BLOCK, INHIBITS TESTER FROM GENERATING END OF 

DTRM= 200 ‘ ;WHEN SET DELAYS TRA FROM BEING ASSERTED FOR SOONS (BIT 

pocc= 400 ;DISSABLE OCCUPY (BIT #8) 

SLKM= 1000 ;SYNC CLOCK MINIMUM WIDTH ,WHEN SET CHANGES SYNC CLOCK T 

ISLK= 2000 INVERT SYNC CLOCK,WHEN SET INVERTS SYNC CLOCK,NO EFFECT 

ENPS= 4000 ;ENABLE PATTERN SHIFT,WHEN SET CAUSES A 716 OR 18 BIT ROT 

BMD18= 10000 318 BIT MODE (BIT #12) 

ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (404) 

ATO= 1 ;DEVICE O (BIT #0) 

ATl= 2 SDEVICE 1 (BIT #1) 

AT2= 4 sDEVICE 2 (BIT #2) 

AT3= 10 sDEVICE 3 (BIT #3) 

AT4= 20 :DEVICE 4 (BIT 4&4) 

AT5= 40 \ :DEVICE 5 (BIT #5) 

AT6= 100 ‘ sDEVICE 6 (BIT 46) 

AT7= 200 ;DEVICE 7 (BIT #7) 

TRANSFER CONTROL REGISTER (45) 

DNO= ] ;DRIVE NUBER BIT 40 (BIT 40) 

DN1= 2 ;DRIVE NUMBER BIT #1 (BIT #1) 

DN2= 4 :DRIVE NUMBER BIT #2 (BIT 42) 

Stike . W :SYNC CLOCK RANGE BIT ,WHEN CLEAR SYNC CLOCK IS 0.42.6 

WHEN SET 2.0-10.6 MICRO SECONDS (BIT #3) 

GAP= 20 ZGAP SIZE BIT,SETS GAP SIZE TO 5 MICROSECONDS WHEN CLEAR 

BLO= 40 ;BLOCK SIZE BIT O (BIT #5) 

BL1= 100 ;BLOCK SIZE BIT 1(BIT #6) 

BL2= 200 ;BLOCK SIZE BIT 2(BIT #7) 

;RH70 1/0 REGJSTERS LOCATED IN RH 

ADD1: 160100 ;BASE ADDRESS RH #1 

ADD2: 160200 BASE ADDRESS RH #2 

ADD3: 160300 ;BASE ADDRESS RH #3 

ADD4: 160400 ;BASE ADDRESS RH #4 

RHCS1: 0 ;CONTROL AND STATUS 1 

RHWC : 0 WOR D’ COUNT 

RH8A: 0 BUS ADDRESS 

RHMR2: 0 ; TRANSFER CONTROL REGISTER 

RHCS2: 0 > CONTROL _ STATUS 2 

RHST: 0 : TESTER STATUS 

RHER: 0 SERROR REGISTER 

RHAS: 0 SATTENTION SUMMARY REG 

RHTDB: Q ; TESTER DATA REGISTER 

RHDB DATA BUF F 


ER 
DIAGNOSTIC (MAINTENCE) REGISTER 
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003356 :DRIVE TYPE REGISTER 
[BUS ADDRESS EXTENTION 
CONTROL AND STATUS 3 
SHIGH BYTE OF RHCS1 REG. 


sADDRESS OF RH #1 
ADDRESS OF RH #2 
sADDRESS OF RH #3 
ADDRESS OF RH 44 


RHCS1B: 


DEVIC1: 
DEVIC2: 
DEVIC3: 
003374 DEVIC4: 


003376 000000 DEVCNT: :DEVICE COUNTER 
003400 000000 DEVICS: ;USED TO CONSTRUCT REG. ADDRESSES 


;OFF11 WILL BE USED AS A CALCULATION LOCATION 


003492 000000 OFF 11: ;REG. CALCULATION LOCATION 
LERADD= ;LOW ERROR ADDRESS REG. 
| HERADD= : | 
MEMERR= : 
003404 0 REGEND : ZREGISTER ENDING ADDRESS 
003406 VECADD: [VECTOR ADDRESS 
003470 000000 RETAIN: 0 


BE I I RFI RI TTI I TTI II IIIT ITT TT ITO TO TOTO TOTTI TOTO KO th 


sREGISTER STORAGE ADDRESSES 


BE FIR III I ITI TIT TOK FCI TTT TTT TOTO TTT IOTOTOTOTOTOIOTOTOTO TOOT OT OTTO TOTTI Ke te to 


ATTENTION SUMMARY 
:BUS ADDRESS 

:BUS ADDRESS EXTENTION 
;CONTROL AND STATUS 1 
CONTROL AND STATUS 2 
: CONTROL AND STATUS 3 
:DATA BUFFER 
:DIAGNOSTIC REGISTER 
: TESTER STATUS 

:DRIVE TYPE 

ERROR REGISTER 
TRANSFER CONTROL 

: TESTER DATA REGISTER 
:WORD COUNT 


DRE ERR REE RK EKER EEE EERE KEKE ERE REE ERE 


BITS AND BIT PATTERNS 


ae RO RNERERRERRER ERR EERE EERE EERE EERE 


003412 000000 
0034 


oo 


COOCCCOOCOCCCCOoO 


003444 000000 


052525 $2525 ALTERNATE BIT PATTERN 
OPPOSITE ALTERNATE BIT PATTERN 
CONSTANT ZERO 

CONSTANT 1 

sCONSTANT 2 


CAREER ERR REE EERE REE ERK AEE 


FUNCTION CODES 


CDRA EERE REAR EERE 


NOOP= (1 * ;NO OPERATION,RESETS GO BIT 
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NONMONON NON Nn) 2 3 a SP HS SO 


w P=] 
QRARAYGISSRSVARRAN VS GSaNAnRWw=OoSs 


WIWWWRoRN 


7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
73 
7 
7 
7 
7 
7 
7. 
7 
7 
7 
7 


HBRRRKKKRRAW 


4 
1 
; 
: 
; 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
. 
: 
, 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
, 
1 
1 
1 
1 
1 
1 
1 


DOO III II IDIIOIIIIUIUIUIUISIOIIIOIUIIOOIUIUIIUII ttt 
; THESE WRCH BITS ARE WRITE/CHECK 
;CODES ,IF THE CODE IS AN ODD 
;NUMBER THE GO BIT IS INCLUDED 
IF THEY ARE EVEN GO BIT IS NOT INCLUDED 


000057 


000071 READ CODES 
:1F THE CODE IS AN ODD NUMBER 
:THE GO BIT IS INCLUDED 


BD FI I I TOR TR ITT TTI TORTI RISOTTO TOI IOI TOOT RR RR tk 


WRITEQ= 61 ;WRITE CODES 
WRITE 1= :1F THE CODE IS AN ODD NUMBER 
WRITE2= :THE GO BIT IS INCLUDED 
WRITE3= IF IT IS EVEN THE GO BIT 

:1S NOT INCLUDED 


66 
WRITE6= 67 


BF I I TTT TTI ITT ITT TTR KER EERE EER EKER KEKE 


000011 DRCLR= 11 CLEARS ALL ERROR BITS IN THE DRIVE 
AND SETS THE DRIVE READY BIT 


BF I TIT TK I ERRKRE RE KREREKKEREKREKEEEEEEEEEAEE 


000031 SEARCH= 31 :SETS A_ONE SHOT WHICH SETS 
zATA AFTER 100USEC + OR MINUS 20% 


DD I I IK IK RRR KERR KEE EEE KER EERE 


:WATBIT STORAGE LOCATIONS 


CE RR RK EERE RE KEE RRR KEE KKK EEE EERE EE 


BITCNT: 0 BIT COUNTER 
LOOCNT: 0 [LOOP CPUNT 
PASS: 0 [PASS COUNT FOR THE LARGE TRANSFER TEST 
FF ITI EKER EERE KEKE KEE ERE EKER EERE RENE REE REE Ee 
;THIS IS WHERE THE TEST NUMBER IS STORED JUST 
7BEFORE IT IS PRINTED OUT 


FL REE RRR EK EKER KEKE REE EEER ERR Ee 


003454 000000 TSTNM: Q TEST NO. STORAGE 
003456 000000 OFFSET: 0 OFFSET FOR ERROR HEADER 
003460 000000 HEDDAD: 0 ;USE TO FIND HEADER ERROR MESSAGE 


CLARE RRR ERR EKER EERE REE EREEREER EEK REE EEKE EER AERER Ree 


THESE ARE THE READ WRITE BUFFERS 


CLARE ee 


SEQ 0034 
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EVEN ADDRESS 
ODD ADDRESS 


eleolelelelelelomg ea) 


000000 


SERRE EERE AREER KORE REE EER ERE EEEREREEREKEE RE RE RR EE 


THESE ARE FOR THE CLEARS TEST 


SRR ER REE 


177777 
000600 


000000 
000000 


— 


ODOOCOCOO Ot 


000000 
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FL RRR EERE REE EEE REE KEE REE REE EKER EERE KER 


BEGIN: : GET SKIP tye READY 
C ' ;SET_ SKIP FLAG 
B :G0 TO START 
BEGINS: RO ZGET SKIP FLAG READY 
901174 CL ;CLR ALTERNATE START FLAG 
001174 7SET FOR ALTERNATE START 
BR ; START PROGRAM 
BEGIN2: 0 GET RO READY 
C RO :TO BE COMPLIMENTED 
004546 J TST1 ZENTER DIAG. FOR NEXT PASS 
000074 003404 BEGIN: #74, QAREGEND 
000774 003406 MO #774 ,@AVECADD 
RO CLEAR THE SKIP FLAG 


TREK REE KER ERE RE REKEEKREERE REE KK e 


MRANSARSRNOOR 


START: 
-SBTTL_ INITIALIZE THE COMMON TAGS 
3sCLEAR THE COMMON TAGS ($CMTAG) AREA 
001100 MOV ASCMTAG,R6 ssFIRST LOCATION TO BE CLEARED 
CLR (R6) + :2CLEAR MEMORY LOCATION 
001140 CMP ASWR,R6 ; ; DONE? 
BNE 6 +s LOOP BACK IF NO 
000750 MOV #STACK, SP zSETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 
072610 000020 MOV ASSCOPE ,a#IOTVEC A Ete! VECTOR FOR SCOPE ROUTINE 
#340, ,QMIOTVEC+2 ;;LEVEL 7 
#SERROR , aMEMTVEC ; EMT VECTOR FOR ERROR ROUTINE 
#340, avEMTVEC+2 siLeV EL 7 
#STRAP, AMTRAPVEC’ :; TRAP_VECTOR FOR TRAP CALLS 
#340, a4TRAPVEC+2;LEVEL 7 
#SPWRDN, AAPWRVEC ; POWER FAILURE VECTOR 


#340, a#PWRVEC+2 VEL 
MES 7¢ INITIALIZE NUMBER OF ITERATIONS 
et THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
i INITIALIZE THE LOOP ADDRESS FOR SCOPE 
012737 MOV ,$LPERR ;SETUP THE ERROR LOOP ADDRESS 
sh 3h FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
EQUAL TO A ‘~1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
013746 00000 MOV @HERRVEC ,-(SP) : 
#64$, avERRVEC ECTOR 
#DSWR, SWR ;SETUP FOR A HARDWARE SWICH REGISTER 
; #DDISP, DISPLAY * TAND A HARDWARE DISPLAY REGISTER 
177777 ° #-1,aSWR ee TRY TO RERERENCE HARDWARE SwWR 
66$ ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
) “. S NOT = -1 
ME OUT 


65$ : 
004414 54$: #65$, (SP) <°SET UP FOR TRAP RETURN 
000176 : ASWREG, SWR :zPOINT TO SOFTWARE SwR 
00017 ADISPREG DISPLAY 
012637 000004 : (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 


005700 ; RO WAS IT A RESTART 


RLLLARLARRASSSSSSSSSSIIIIIZ 


NOR) So 
NO OONAUSWN oO 


xt x4 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
; 
. 
1 
1 
1 
1 
1 


Go 
a) 
Ww 
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RHBE .P11 *O7=JUN-79 13:44 INITIALIZE THE COMMON TAGS SEQ 0037 
1835 004436 100443 BMI AROUND zYES,SKIP TYPING 

1836 004440 104401 004446 TYPE ,68$ or ASCIZ STRING 

1837 004444 000427 BR 67$ GET OVER THE ASCIZ 

1838 ;68$: .ASCIZ <15><12>/RH 11 AND 70 I O AND CONTROLLER DIAGNOSTIC/ 
1839 004524 678: / 

1840 004524 104401 004532 TYPE ,70$ i ASCIZ STRING 

1841 004530 000406 BR 9$ :GET OVER THE ASCIZ 

1842 3;70$: .ASCIZ <15><12>/CZRHB-D / 

1843 004546 69$: 

ere 004546 AROUND : 

1846 CORI III III III II III OOOO OOOO OOOO OOOO IOI OOOO TOIT 
1847 PeTEST 1 THIS IS THE RH ADRESS DECODE TEST 

1848 3*THIS PROGRAM WILL ALLOW THE OPERATOR TO SAY 

1849 :*WHICH RH IS ON THE BUS AND WHAT ITS BASE 

1850 s*ADDRESS IS. THE RH IS THEN TESTED FOR A 

1851 ;*RESPONSE AND CHECKED FOR A TESTER BEING 

1852 ; *CONNECTED. 

1853 DORIC IOI TOIT OOOO TOTO IOI IO IAI I III AAI IASI AA ISAS SISOS AAACN A Se 
1854 004546 000004 11: SCOPE 

1855 004550 012737 000001 001212 MOV #1,$TIMES 3:D0 1 ITERATION 

1856 004556 012737 047200 000114 MOV #PARITY ,@4114 

1857 004564 012706 000750 MOV ASTACK, SP 

1858 004570 012737 000340 000116 MOV #340,04116 

1859 004576 012737 046746 0C0004 MOV ATIEOUT ,a#ERRVEC 2SET UP TIMEOUT 

1860 004604 012737 000340 000006 MOV #340 ,QHERRVEC +2 ;SETUP_PRIORTY 

1861 904612 005700 TST RO :SKIP TYPOUT ? 

1862 004614 001403 BEQ SKIPIN :NO 

1863 094616 005000 CLR RO sCLEAR SKIP FLAG 

1864 004620 000137 006552 JMP aATST2 2GET OUT OF TEST 

1865 004624 005001 SKIPIN: CLR R1 :GET R1 READY 

1866 004626 005737 001174 TST $REGS zI1S IT AN ALTERNATE START 
1867 004632 001402 BEQ SLEUTH :NO 

1868 004634 000137 004644 JMP KONG YES DO ALTERNATE SETUP 
1869 004640 000137 005066 SLEUTH: JMP AD1ERR DO REGULAR SETUP 

1870 004644 005037 001174 KONG: CLR $REGS RESET ALT. START FLAG 
1871 004650 104401 004656 TYPE ,65$ :TYPE ASCIZ STRING 

1872 004654 000416 BR 64$ :GET OVER THE wu 

1873 3765$: .ASCIZ <15><12>/TYPE BASE ADDRESS FOR RH / 

1874 004712 64$: 

1875 004712 104410 RDOCT 

1876 004714 012637 003366 MOV (SP)+,DEVIC1 GET BASE ADDRESS 

1877 004720 104401 004726 TYPE ° ,67$ site ASCIZ STRING 

1878 004724 000415 BR 66$ GET OVER THE or bate 

1879 3:67$: .ASCIZ <15><12>/TYPE RH VECTOR ADDRESS / 

1880 004760 66$: 

188% 004760 104410 RDOCT 

1882 004762 012637 003406 MOV (SP) +, VECADD GET VECTOR ADDRESS 

1883 004766 104401 004774 TYPE ,O9$ scive ASCIZ STRING 

1884 004772 000426 BR 68$ GET OVER THE ASCIZ 

1885 32698: .ASCIZ <15><12>/HOW MANY REGISTERS ARE YOU JUMPERED FOR / 
1886 005050 68$: 

1887 905050 104410 RDOCT 

1888 005052 012637 003404 MOV (SP) + ,REGEND :GET —— OF REG 

1889 005056 006137 003404 ROL REGEND MULT 

1890 005062 000137 005402 JMP G11 :G0 CREATE ADDRESSES 
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S IS THE RH ADRESS DECODE TEST SEQ 0038 


88833 


SESRSE 


046746 


006054 
003372 
046746 
006054 
003374 
046746 


006054 
000042 


046152 


000004 


003370 
000904 


003372 
000004 


003374 
000004 
000004 


000004 


000004 


003366 


013737 003366 ADIERR: 
5166 


AD2ERR: 
AD3ERR: 


ADGERR: 


ADD1 ,DEVIC1 
Hs ee -ERRVEC 


@ADD 
ADD2,DEVIC2 
#AD 3ERR, ERRVEC 
@ADD3 


ADD3 ,DEVIC3 
#AD4ERR , ERRVEC 
DD4 


aA 

ADD4 ,DEVIC4 
#TIEOUT, ERRVEC 
RESTAR 

DEVIC2 

ATIEOUT ,ERRVEC 
(SP) +, (SP)+ 
RESTAR 

DEVIC3 

ATIEOUT ,ERRVEC 
(SP)+,(SP)+ 
RESTAR 


DEVIC4 
ATIEOUT ,ERRVEC 
(SP) +, (SP)+ 


SETUP DEVICE 1 
:FOR TIMEOUT 
1S THERE A DEVICE 


FOR TIMEOUT 
335 THERE A DEVICE 


3 FOR TIMEOUT 

SIS THERE A DEVICE 
;REPLACE TIMEOUT 
VICES 


NO DEVICE 2 
REPLACE TIMEOUT 
CORRECT STACK 


TEST wae 


NO DEVICE 
sREPLACE TIMEOUT 
; CORRECT STACK 
TEST DEVICES 
NO DEVICE 4 
REPLACE TIMEOUT 
CORRECT STACK 


TEST DEVICES 
31S THERE A MONITOR 


;NO 
7YES EXIT 
ZARE WE HERE AFTER 210 


$SEOP 
160100 #160100, DEVIC 
SA200 


004644 KONG 

005302 j 65$ ii TYPE ASCIZ STRING 
64$ “GET OVER THE ASCIZ 
<15><12>/TYPE BASE ADDRESS FOR RH #1 / 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WOODOOOO0OO000N00D0 
Mo Sa So So 
SOUONAUSWN—O 


GET NEW ADDRESS FOR 210 


003366 (SP)+,DEVIC1 :GET BASE ADDRESS FOR RH1 

001103 ERFLG ARE WE HERE BECAUSE OF AN ADDRESS ERROR 
E G01 NO. GET READY FOR NEXT ADDRESS 

003366 st ‘J IT A ZERO 


005260 MP 1G1 NEED FIRST ADDRESS 
003366 : :DID HE yer y A 0 
E GET BASE FOR RH # 2 
005260 GIG1 SNEED ADDRESS 
003400 : DEVIC1,DEVICS :GET READY TO CREATE REG. ADDRESS 
003410 #G1GO,RETAIN 7SAVE RETURN ADDRESS 
1G04 CONSTRUCT REGISTER ADDRESSES 
:1S THER A MONITOR 


NO 
046152 EXIT 
104401 005442 j ii TYPE ASCIZ STRING 


000420 BR 64$ GET OVER THE ASCIZ 
os sASCIZ <15><12>/TYPE BASE ADDRESS FOR RH #2 / 
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:GET VALUE 
003370 MOV (SP) + ,DEVIC2 SAVE A ADDRESS 
001103 SERFLG ARE WE HERE BECAUSE OF ERROR 


NO 

315 IT 0 

7SET ¥ FOR RH #1 
71S 1T 0 


:NO,GET NEXT ADDRESS 
RESTAR SCREATE ADDRESS FOR RHA1 
003400 : DEVIC2,DEVICS 7GET READY TO CREATE 
003419 #G1GO1,RETAIN SAVE RETURN ADDRESS 
G1G04 CREATE REG. a 
arse :1S THERE A MONITO 
GIG3 3NO 
046152 J $SEOP sEXIT 


005602 ‘ ,65$ ss TYPE ASCIZ STRING 
4$ T OVER THE ASCIZ 
<15><12>/TYPE BASE ADDRESS FOR RH #3 / 


003372 MOV (SP)+,DEVIC3 SAVE ADDRESS 

001103 = dae :ARE WE HERE DO TO ERROR 
003372 At :1S It 0 

045374 ; RESTAT ZRESTART PASS 


003372 : DEVIC3 0 
G1GO3 :GET NEXT ADDRESS 
RESTAR : CREATE RH#1 ADDRESSES 
003400 : DEVIC3,DEVICS 


003410 #G1GO2,RETAIN : 
J G1G04 CREATE ADDRESSES 
ar42 71S THERE A MONITOR 
GIG4 =N 
$EOP sEXIT 


005742 : ,65$ ii TYPE ASCIZ STRING 
64$ ‘GET OVER THE ASCIZ 
<15><12>/TYPE BASE ADDRESS FOR RH #4 / 


003574 MOV (SP) +,DEVIC4 SAVE ADDRESS 
001103 SERFLG ZARE WE HERE BECAUSE OF ERROR 


G04 
003374 3} ian 18 IT 0 


G 
RESTAT SRESTART PASS 
: RESTAR :GO_SET UP REG. ADDRESSES 
003400 : . DEVIC4,DEVICS :GET READY TO CREATE REG. ADDRESSES 
003410 #G1GO3,RETAIN STORE RETURN ADDRESS 
J G1G04 ‘20 CREATE ADDRESSES 
003400 : DEVIC1, peyics :GET READY TO CREATE REG. ADDRESSES 
003410 M #GIGO,RETA SAVE RETURN ADDRESS 
104401 006076 65% sz TYPE ASCIZ STRING 
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2003 


000421 


013746 
2 


012777 
012637 


104401 
000413 


005001 


012777 


O7=JUN=79 13:44 


003366 
003400 
00 

003360 


003400 


000040 


006340 
000007 


006340 


000004 
175036 
000004 


000004 
006540 
000117 
000004 


006414 


006546 


000117 


003402 


003402 


003402 


003364 


000004 
175046 


175052 


175014 


000004 
174760 


000004 
174672 


id 30A(1052) 


3$: 


TSTADD: 


1$: 


2$: 


ADDERR: 


RHTEST: 


RH11BA: 


77658: 
64$: 


RH7OTT: 


B 4 
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THIS IS THE RH ADRESS DECODE TEST 


BR 
-ASC1Z 


64$ ;;GET OVER THE ASCIZ 
<15><12>/TESTING RH #1 AT BASE ADDRESS / 


DEVIC1,=(SP) 7sSAVE DEVIC1 FOR TYPEOUT 
32GO TYPE=-OCTAL wisetiee 


oevibae @AOFF11 sSETUP FOR A 

#RHCS1,R2 SET UP WHERE TO PUT THEM 
@WOFF 11, (R2)+ :SETUP ADDRESS 

#TWO, MOF F 11 SETUP NEXT ADDRESS 

#RHBAE ,R2 ARE ALL ADDRESSES SET UP 
3$ 71S INFORMATION CORRECT? 
4$ :NO SETUP NEW ADDRESS 
DEVICS, a#OFF 11 

REGEND , @#OF F117 

@4OF F114, RHBAE WITH CORRECT ADDRESS 


#2, QH0FF11 SETUP RHCS3 ADDRESS 
@AOFF11,RHCS3 sWITH CORRECT ADDRESS 
RHCS1,RHCS1B SETUP RHCS1B WITH 


RHCS1B ‘HIGH BYTE ADDRESS OF RHCS1 
@#ERRVEC ,-(SP) SSAVE TIOUT VALUE 
#ADDERR, A#ERRVEC ‘SETUP NEW TIOUT VALUE 
#7, aRHCS2 :SETUP UNIT NO. 
@RHCS1 ‘WILL RH RESPOND 
#40, QRHDT ‘IS A TESTER THERE 

$ :YES ,CONTINUE 

34 : TESTER IS NOT CONNECTED 
ADDERR+2 :BAD ADDRESS 
#7, aRHMR2 ‘IS THERE ALSO A 7 FOR UNIT NO. 
2$ YES, CONT INUE 

71 ‘BAD ADDRESS 
ADDERR+2 

(SP) + sCORRECT STACK 
RHTEST ‘YES AN RH IS THERE 
(SP)+, (SP)+ SCORRECT STACK 

(SP) +. AHERRVEC :REPLACE OLD TIOUT VALUE 
36 RH DID NOT RESPOND 
RETAIN [GET CORRECT BASE ADDRESS 
(SP) +, AERRVEC [REPLACE TIEOUT VALUE 
R1 ‘IS IT A 70 
RH70TT ‘YES,LETS MAKE SURE 
avERRVEC -(SP) i SAVE | TIME OUT VALUE 
#RH11, AAERRVEC K FOR AN RH11 
FIPCKOGT TPR! TPck2! 1PCK3! eS, @RHCS3 

:SET ALL BITS IN RHCS3 

(SP) +, @HERRVEC SREPLACE TIMEOUT 

,65$ ::TYPE ASCIZ STRING 
64$ “GET OVER THE ASCIZ 
<15><12>/TESTING FOR AN RH70/ 
R1 :SET uP RH70 FLAG 
RH11+6 x 
a#ERRVEC, 5 (SP) :SAVE LOCATION 4 


AF AKE70 ,aM#ERRVEC ;REPLACE ALDRESS 
PIPCKO! FPCK 1 1PCK2! IPCK3!1E3,a@RHCS3 
SET ALL BITS 


SEQ 0040 


MASSBUS RH70 AND RH11 were ee 
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CZRHBE .P11 


000411 


006542 
000004 


006514 


C 
* hl 30A(1052) 12=JUL=79 


& 
10:46 PAGE 


42 


THIS IS THE RH ADRESS DECODE TEST 


RH11+2 
(SP)+,(SP)+ 
de ccametoas 


R1 


J 
FAKE70: 
RH7OBA: 


sEXIT TEST 
CORRECT STACK 
; CORRECT TIMEOUT 


#GET FLAG READY 
SET FOR RH11 


,05$ Sth AsCIZ STRING 


OVER THE ASCIZ 


64$ ‘GET 
5958: <15><12>/TESTING AN RHT1/ 
000403 aig a ERR1 
RH11: (SP)+, (SP)+ :CORRECT STACK POINTER 
000004 (SP)+, P14 aes 
050210 ST 


MO REPLACE TIMEOUT VALUE 
ERR1: R7,ERR 


DIRK RRR TR KEK KER EKER KK 


S*TEST 2 


004737 


CLEAR TEST 
s*THIS TEST CHECKS THAT ALL 
>*ERROR BITS ARE CLEARED AFTER 
:*THE CLEAR BIT WAS LOADED INTO 
i*RKCS2 REGISTER 


SKE REREREREREREERERERERERERERERRE REAR RERERERR RARER ERE RRR 


1812: 
#1,$TIMES 3;D0 1 ITERATION 
$TMPS :GET READY TO 
STMPS5 :SET UP FOR JSR ROUTINE 
FD II KIRKE EERE REE REE KR EEK EK KK 
;*THIS TEST IS ALSO ENTERED AT THE LABLE CLEER 
>*AT THE END OF ALL THE ERROR BIT TESTS TO SEE 
>*THAT A CLEAR WILL CLEAR THE ERROR BIT SET 
SAGO ICIS IIIS IOI tok 
174540 CiEER: mov #CLR,@RHCS2 :TELL IT TO CLEAR 
174532 #7 ,ARHCS2 ZSETJP UNIT NO. 
174522 #7. aRHMR2 SHAS DEVICE BEEN SET TO 7 
1$ :NO,FIND WHAT BIT WAS NOT SET 
DF II RIKI KIRKE REE IEKEKEEEKEERKEREREEKKKK KKK 
:*THE TEST IS ENTERED HERE IF THE ERROR BIT BEING 
EsFORCED SET DID NOT SET TO SEE IF ANY OTHER ERROR 


t seneeeteetenrneeerennaerennngenneantenseanesentaseneetenetsetes 
R1 :IS_IT AN 11 OR A 70 
15$ i1T'S A 70 
"eo SARE WE HERE FGR SHORTS 


NO 
1 @RHCS3 NO. EXTRA ERROR BITS 


007174 138 WE FOUND AN ERROR 
032777 174000 174510 14$: AWCELO! WCEHI !DPELO!DPEHI APE @RHCS3 
TEST ERROR BITS 
001412 5$ >NO ERROR BITS SET 
007174 13$ :GO REPORT ERROR BITS 
004122. 15$: ete 


2 ARE WE HERE FOR SHORTS 
004124 174434 $CS1,@RHCS1 :YES see IF THERE ARE ANY 
2$ NONE F OUND 
3GO CHECK THE NEXT ONE 
SANY ERROR BITS SET IN CS1 
>YES.FIND THEM 


000001 
001210 
001210 


001212 
005137 


012777 000040 
000007 


000007 


004122 


004130 174524 


160000 174422 


16$ 
SINE SE ERPS EES 
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005737 004122 16$: ator ;ARE WE HERE FOR SHORTS 
004126 174414 — $CS2,aRHCS2 ZANY SHORTS 
3$ :YES 


17$ NO, CONT INUE 
032777 177400 174402 : AMPE !MXF ! PGE !NEM! NED!UPE ‘WCE !DLT,aR HCS2 
sARE ANY ERROR BITS SET IN CS2 
001060 3$ sYES ,FIND THEM 
004122 : aie TARE WE HERE FOR SHORTS - 


; ’ :NO 
004132 174366 os oe SHORTS ? 


18$ ; CONT INUE 
140000 174354 : MERR!ATA,@RHST ARE ANY ERROR ab, SET IN ERI 
BN 9$ YES ,GO FIND THEM 
004122 : at :ARE WE HERE FOR SHORTS 


004134 174340 $ER ,@RHER 7 YES nye i THER ARE ANY 
4$ WE FOUND SOME 


19$ : CONTINUE 
032777 030175 174326 8$: #ILF RMR! CPE! DPE !RMBEX'!RFAIL!DTE!OPI,@RHER 
;ANY ERRORS IN RHER REG. 
001041 BN $ :YES,GO FIND THEM 
001210 : 1S IT BEING USED AS A SUBROUTINE 


tee | ‘SETUP SUB ROUTINE FLAG 
050034 TWAS THERE ANY ERRORS 


; 0 
174274 004100 aRHCS2, . RBUF 
046362 ; : R7, ,WATBIT 
12$ 


047714 : R7,FINDIT 
174242 004100 @RHCS1 . RBUF 


a a ns a ed od od 8) 
a rn a 
WONAWEWH—OVDONAW 


MNMIMNM MN NONMNNoNNyNo/Norory 


Nm 
4 
Ww 
= 


; ONTENTS 
SERROR BIT SET IN CS1 
046362 3 JS ot ele WHAT BIT IS SET 


E 
TEST REST OF REGISTERS 
047740 : R7,LOOKFO HCS2 
174230 004100 OV @RHCSe , RBUF 


046362 JS R7,WATBIT 
17$ 


047764 : R7, LOOKED 
174212 004100 OV @RHER , RBUF TENTS 
74 R1 HAS AS AN. ERROR BIT SET 


046362 RR? WATBIT TELL WHAT BIT 
001210 $TMPS :1$ IT BEING USED AS A SUBROUTINE 


YES 
WAS THERE ANY ERRORS 
050010 2 ND ;RHST HAS AN ERROR BIT SET 
174160 004100 aRST. RBUF [GET CONTENTS 
75 ERROR IN RHST 
046362 R7,WATBIT : TELL WHAT BIT 
18$ CONTINUE TEST 
050060 : R7,CS3ERR :CLEAR UNWANTED BITS 
017737 174156 004100 @RHCS3, RBUF 2GET REG. CONTENTS 


MOMEMEMONINNNNoNNory 


Nm 

rr 
SIO 
ow 
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—_ 3 2) od 


O7=JUN-79 1 
104176 
37 


000207 
004737 


000004 


004737 


000004 


046362 


007220 
050210 


000040 


000007 
174076 
000040 


050210 


000001 
177777 
177777 


000040 


173760 


003416 ° 


173656 
007576 


173644 © 


177777 
173630 


174072 


001172 


001212 
174014 
174006 


174004 
0 


003414 


003416 
4 


001162 
003444 


E 4 
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T2 CLEAR TEST 


ERROR 176 -RHCS3 HAS AN ERROR BIT SET 

JSR R7,WATBIT ‘TELL WHAT BITS 

JMP 15$ ‘CONT CHECK 

MP 12$ ‘START JSR WHYFO 
WHYFO: JMP 6 ‘FIND ERROR BITS SET 
LEAVE: RTS R?7 :GO BACK TO PROGRAM THAT SENT YOU HERE 
ERR2: JSR R7,ERRTST 


III III UIIUIDIOIISISIIOISISIDIDIUIOIOIOIOIOIOIOIOISIOIOIDIOIIDIDIOIDIOIDIDIDIOIDI IDOI ISIS I ot « 
T*TEST 3 THIS TEST SEES IF THE TESTER IS CONNECTED 
:*THIS TEST SEES IF THE DEVICE CODE IS 
:*A 40 TO SAY AN RH SiMULATOR IS ATTACHED 


-RRRERRRERERERERERREREEREERRRERR REAR RRRRERRERR EERE EERE EERE ERE 


1813: SCOPE 

MOV #CLR,@RHCS2 ;CLEAR TESTER | 

MOV #7, ARHCS2 ' UNIT SEVEN 

MOV @RHDT , $REGS “GET DRIVE TYPE 

CMP #40, $REG4 ‘IS IT THE TESTER 

BEQ ERRG [WAS THERE AN ERROR 

ERROR 34 [TESTER NOT CONNECTED 
ERR4: JSR R7,ERRTST : 

| 

CDI IO III III III III IOI IOI III III IOI III IIIT OT OI IIIOIOI IO 
T*TEST 4 WC CLEAR TEST 


*THIS TEST WILL SEE THAT WHEN A CLEAR IS GIVEN 
:*THE WORD COUNT REGISTER REMAINS THE SAME 


- ceeRERRERRERERRRRERRERREERERREREEERERERRERREREEREERERRE ERE E EE 


1814: SCOPE 


MOV #1,$TIMES ::DO 1 ITERATION 
MOV A-1 , ARHWC MAKE WC NEGITIVE 
CMP A=1 , ARHWC zsWAS IT LOADED CORRECTLY 
BNE WCERR1 :NO,ALL BITS DID NOT SET 
HERE: MOV A#CLR,@RHCS2 :TELL DEVICE TO CLEAR 
MOV @RHCS1,CS1 SAVE RHCS1 
MOV @RHWC , WC SAVE WORD COUNT . 
MOV ARHBA ,BA SAVE BUS eo : 
TST ‘RI :1S IT AN RH1T 
BEQ 87$ sNO_IT'S A 70 
CLR BAE : CLEAR BAE 
CLR CS3 CLEAR CS3 
JMP 86$ ; CONT INUE 
87$: MOV @RHBAE ,B SAVE BUS ADDRESS EXTENSION 
MOV @RHCS3,CS3 SAVE RHCS3 
86$ MOV @RHCS2, iSAVE CS2 


MOV ARHMR2 , TC 


a 


J 
WCERR1: are 


MOV 4-1 ,$REGO 
MOV @RHWC , WC 
ERROR 42 


SAVE TESTER STATUS 

SAVE ERROR REGISTER 

SAVE TESTER DATA REG. 

7 SAVE ms TESTER REG. 

:DID IT CLEAR 

7: YES,CLEAR SHOULD NOT CLEAR we 
:GO TO NEXT CHECK 


‘DID ANY BITS LOAD 


“SAVE WHAT WC SHOULD HAVE BEEN 
SAVE CONTENTS OF wC 
ALL BITS DID NOT SET 


SEQ 0043 


_F 4 
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CZ7RHBE .P11 O7=JUN=79 13:44 14 wC CLEAR TEST ' SEQ 0044 


013737 003444 001200 WC, $TMP1 ; SETUP FOR hie 
R7 ,WATBIT sFIND THE BIT(S 
E sSEE IF BITS set CLEAR 
001162 1$: ;SETUP FOR ERROR 
173574. 003444 ;GET BAD DATA 
3 WC DID NOT LOAD ANY BITS 
007576 JMP ;GO TO NEXT REG. TEST 
177777 001162 wCERR2: é ;SETUP GOOD DATA 
173552 003444 M :GET BAD DATA 
003444 001200 sSETUP FOR WATBIT 
4 ;SOME BITS CLEARED IN wC 
046362 J sFIND THE BITS THAT CLEARED 
006572 ¥ : CLEAR ERRORS 
007602 004737 050210 JS oo ERRTST 
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CZRHBE P11 O7=JUN@79 13:4 15 RHBA CLEAR TES SEQ 0045 
: SPER ERE E REE RETR EERE TERETE EERE ERE R EERE EEE EERE EE - 


SeTEST 5 RHBA CLEAR TEST 


s*THIS TEST SEES THAT WHEN A CLEAR IS GENERATED 
s*THE BUS ADDRESS REGISTER IS CLEARED 


STREETER EERE REE ERR ERR REE ER 


177776 i $ 4-2 ,QRHBA SET ALL BITS IN RHBA 
177776 4-2, QRHBA ARE THEY ALL SET 
; 1$ sALL THE BITS DID NOT SET 
ACLR,ARHCS2 :TELL IT TO CLEAR 
@RHCS1,CS1 SAVE RHCS1 
SAVE WORD COUNT 
173460 003414 HBA ,BA SAVE BUS ADDRESS 
71S IT AN RH11 
iNO IT'S A 70 
003416 


INUE 
003416 : Q ; BUS ADDRESS EXTENSION 
RHCS3 . 


CS2 

TESTER STATUS 

ERROR REGISTER 
@RHTDA, TDR ; TESTER DATA REG. 

003440 @RHMR2 , TC MR2 TESTER REG. 
@RHBA HTS IT ZERO 
TOIT : TEST IS GOOD 
[CREATE GOOD DATA 


2 $REGO 
173346 001200 MOV @RHBA , $TMP 1 ;SETUP FOR WATBIT 
4 ;RHBA DID NOT CLEAR 
046362 R7 ,WATBIT FIND BITS STILL SéT 
aATOIT : :GO TO NEXT REG. TEST 
001162 1$: #-2 ,$REGO SETUP GOOD DATA 
173320 001200 oo" :SETUP FOR WATBIT 


sBITS DID NOT SET IN RHBA 
TOIT: 


004737 006572 J R7,CLEER ; CLEAR ERRORS 
004737 050210 ‘ R7.ERRTST 
CIO IUIIUIIOIIIIUIDIDIDIOIIOIIUIOIIIIOUIOIIUIIDUIOIUIIOIUIOIOIIIID I ininingnnnt 
TRTEST é RHBAE CLEAR TEST 
:*THIS TEST CHECKS THAT WHEN A CLEAR IS GENERATED 
;*THE BUS ADDRESS EXTENSION REGISTER IS CLEARED 
ETI IIII IIIT TTT TTT TTT TTT TTT TTT LETT TET TTT TTT TTT TTT TTT TT 


000004 —TST6: 
:1S IT A 70 OR AN 


BM TST7 |:SKIP OVER TEST FOR RATT 

000077 173314 WATFOR: 7 SET ALL BITS IN RHBAE 
000077 173306 C TARE THEY ALL 

1$ GALL THE BITS BID NOT Set 
900040 173256 #CLR,@RHCS2 TELL IT TO CLEAR 

: aRHics1,C$1 SAVE RHCS1 

@RHWC , WC SAVE WORD COUNT 
172232 003414 @RHBA . BA SAVE BUS ADDRESS 

RI 1S IT AN RH11 
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HBE .P11 


010252 


010256 


010426 


07=JUN- 


001406 


004737 


017737 


003416 


* 000077 


173116 


006572 
050210 


177777 
003446 
000200 
003446, 


003446 
000200 


003446 


172770 
172764 
172760 


003416 


003416 


003440 


0601200 


001162 
001200 


173064 
173040 


173016 


003420 
003444 
003414 


003416 


003436 


H 
MACY11 30A(1052) es 79 
T6 RHBAE 


CLEAR TES 
BEQ 87$ 
CLR BAE 
CLR CS3 
JMP 865 
87$: MOV @RHBAE ,BAE 
MOV @RHCS3,CS3 
86$: MOV @RHCS2,CS2 
MOV @RHST,DS1 
MOV @RHER,ER1 
MOV @RHTDB,TDR 
MOV @RHMR2, TC 
TST @RHBRAE 
BEQ WATFIV 
CLR _ $REGO 
MOV — @RHBAE,$TMP1 
ERROR 100 
JSR R7,WATBIT 
JMP @AWATF IV 
1$: MOV #77 ,$REGO 
MOV @RHBAE , $TMP1 
ERROR 101 
WATFIV: 


JSR R7,CLEER 
’ JSR R7,ERRTST 


4 
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iNO IT'S A 70 

;CLEAR BAE 

:CLEAR CS3 

= CONT INUE 

[SAVE BUS ADDRESS EXTENSION 
: RHCS3 


CS2 
SAVE TESTER STATUS 
SAVE ERROR REGISTER 
SAVE TESTER DATA REG. 
: E MR2 TESTER REG. 

IT ZERO 
:TEST IS GOOD 
[CREATE GOOD DATA 
*SETUP FOR WATBIT 
;RHBAE DID NOT CLEAR 
7FIND BITS STILL SET 
O TO NEXT REG. TEST 

;SETUP GOOD DATA ' 
;SETUP FOR WATBIT 
:BITS DID NOT SET IN RHBAE 


: CLEAR ERRORS 


M4 DIKE EKER KR KR EKEKRRRKRRRRKEKEREREREERER  e 


S*TEST 7 


RHDB CLEAR TEST 


:*THIS TEST CHECKS THAT WHEN A CLEAR IS GENERATED 


:*OUTPUT READY IS NEGATED 


CONRAN HRERERERERRAeRRREERARERREREReReNeReENeReAeRenETeNNtenee 


i817: SCOPE 


MOV 4-1 ,ARHDB 
CLR BITCNT 
18$: BIT #0R,A@RHCS2 
BNE DRMG 
INC BITCNT 
BNE 18$ 
CLR BITCNT 
19$: BIT #OR ,@RHCS2 
BNE DBMG 
inc BITCNT 
BEQ DBMG 
BR 19$ 
DBMG: 
MOV @RHCS1,CS1 
MOV @RHWC , WC 
MOV @RHBA ,BA 
TST R1 
BEQ 87$ 
CLR BAE 
CLR CS3 
JMP 86$ 
87$: MOV @RHBAE , 


86$: MOV SRST. 


;SET ALL BITS IN RHDB 
se th COUNTER 


SBIT IS SET 
COUNT UP 
SNOT FINISHED COUNT ING 


GET READY TO BO IT AGAIN * 
i1S - SET YET? 


COUN T UP 
:BIT IS NOT GOING TO SET 


SAVE RHCS1 

SAVE WORD COUNT 

: SAVE BUS ADDRESS 
IT RH11 


NUE 
‘SAVE BUS ADDRESS EXTENSION 
;SAVE RHCS3 


SAVE CS2 
SAVE TESTER STATUS 
SAVE ERROR REGISTER 


SEQ 0046 


yh ay RH70 AND RH11 Sey oe? ad 
C2RHBE .P11 


07=JUN=79 
017737 


104114 


004737 
004737 
004737 


13:4 
172710 


172670 
000200 


177777 
003446 
000200 
003446 


003446 
000200 


003446 


000040 
003446 
000200 
003446 


000200 


007224 
006572 
050210 


003366 
003356 
003360 


003360 


003416 
001162 
172452 


003330 
172504 


003442 
003440 
172662 


172662 
172636 


172614 


172574 
172562 


172544 


160100 


003412 


003420 
001162 


MACYIN 30A( 1052) 


I 4 
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RHDB CLEAR TEST 


PAGE 48 


: SAVE TESTER DAiA REG. 


; E 

ZOUTPUT READY DID “NOT SET 
;DID INFO GET LOADED TO DB 
:CLEAR BIT COUNTER 

:1S_OR SET 

:BIT IS SET 

; COUNT UP 

SNOT FINISHED COUNTING 


:GET READY TO DO IT AGAIN 
18 11 SEF YET? 


: COUNT UP 
;BIT IS NOT GOING TO SET 


;TELL IT TO CLEAR 

:CLEAR THE COUNTER 

;DID OUTPUT READY CLEAR 
:YES GET OUT OF LOOP 

: INCREMENT COUNT LOOP 
CONTINUE LOOP IF NO CARRY 
:IS QUTPUT READY CLEARED 
:YES,EXIT TEST 

;OUTPUT READY NOT CLEARED 
:BY SETTING CLR IN RHCS2 
ANY ERROR BITS SET 
CLEAR ERRORS 


ae FOR WHAT REG END 
WE ARE OK 


;SETUP TO TEST RH11 
;CORRECT ADDRESS 
SARE ALL REGISTERS CHECKED 
:WERE THERE ANY ERRORS 
TEST REGISTER 
:$O0ME INFORMATION WAS FOUND 
SARE ALL REGISTERS CHECKED 
acy. THERE ANY ERRORS 
TEST NOT COMPLETED 
[CORRECT ADDRESS 
SAVE ADDRESS 
GET CONTENTS 
:GET ATTENTION SUMMARY 
[FALSE INFO IN FAKE REGISTER 
GET OFFSET READY 
:GET ADDRESS TO START CHECKING 


MOV @RHTDB,TDR 
MOV @RHMR2, TC 
BIT #0R ,@RHCS2 
BNE HURTS 
ERROR 41 
HURTS: CMP #=-1,@RHDB 
CLR BITCNT 
18$: BIT #OR ,@RHCS2 
BNE DAMSG 
INC BITCNT 
BNE 18$ 
CLR BITCNT 
19$: BIT #OR, @RHCS2. 
BNE DBMSG : 
INC BITCNT 
BEQ DBMSG 
BR 19% 
DBMSG: 
MOV #CLR,@RHCS2 
CLR BITCNT 
18$: BIT #OR , ARHCS2 
BEQ SNAF 00 
INC BITCNT 
BNE 18$ 
SNAFOO: BIT #0R,ARHCS2 
BEQ 1$ 
ERROR 114 
JSR R7,WHYFO 
1$: JSR R7,CLEER 
JSR R7,ERRTST 
° FERRER EKER REE RRR ERE RK ERK EEK KEKE REE 
+ *TEST 10 PROM REGISTER DECODE TEST 
:*THIS TEST CHECKS THAT THE PROM 
7 *CAN ACCESS ALL REGISTERS 
: é > eeObenenennneeenneenseseenneeeeesoensneennesnsesenesensecenese 
TST10: ‘SCOPE 
CMP DEVIC1,4160100 
; BNE 1$ 
1$: MOV RHDT,R4 
TST (R4)+ 
CMP RHBAE ,R4 
BEQ ERR3 
2s: TST (R4)+ 
BNE 3$ 
CMP RHBAE ,R4 
BEQ ERR3 
BR 23 
3$: TST -(R4) 
MOV R4 ,BAE 
MOV (R4) ,SREGO 
MOV @RHAS AS 
ERROR 52 
CLR R= 
MOV RHCS1,CS1 
29%: CMP acS1,$REGO 


HAS A REGISTER BEEN FOUND THAT COMPARES 


SEQ 0047 


J 4 
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010716 001412 28% :YES,PRINT IT OUT 
0 003356 003420 308: RHDT,CS1 ‘IS IT LAST REG IN RH11 
ERR3 [WAS THERE ANY ERRORS 
000002 003420 #TWO,CS1 ‘NO,CORRECT FOR NEXT CHECK 
000004 #4 R3 CORRECT OF FSET 
29$ : CONTINUE TEST 
020000 177570 : #S5W13,a4177570 : SKIP ERROR PRINTOUT 
55$ SKIP MESSAGE ° 
010762 ,65$ 7 is TYPE ASCIZ STRING 
010760 BR 64$ :GET OVER THE ASCIZ 
ra : <15><12>/REGISTER CONTENTS COMPARES TO:/ 


011030 > SMP 278(R3) 


PA ae REGISTER 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST - 
TEST 


E 7 
050210 ERR3: S R7,ERRTST 
006572 R7,CLEER : CLEAR ERRORS 


PIOUS IIIS IOUIOIDIDIOIOIOIOIOIOIOIOIOIOIDIOIUIOIOISITI IDIOT III III IDI 
S*TEST 11 RHCS3 TEST 
i*THIS TEST CHECKS THE READ/WRITE BITS 
3*IN THE RHCS3 REGISTER CAN BE CLEARED AND SET. 
DIGI OUI OI SISIISIIIIIOOOIIUIOIOIUUOIUOOU SEI ODOR tat tniis 
TST11: SCOPE 
000040 172202 MO #CLR,@RHCS2 ;CLEAR TESTER 
000007 172174 * #7, ARHCS2 :SETUP UNIT SEVEN 
R1 31S IT AN RH70 
TST12 3: THIS 1S A RH11 
000004 003450 #4,LOOCNT ;SETUP LOOP COUT OF FOUR 
000001 001162 #1, $REGO ‘ :SETUP BIT TO BE TESTED 
013777 001162 172170 : $REGO,@RHCS3 . SET THE BIT 


, 
. 


OQOoOoOo0000 
ab anh a and eh ah enh cee ee 
ek cal coil cal cael cel cal cl ad 


OQOOoo000o 
par for Pe Per Pw Pe Pe P 
ils wel wai anil nl ath ea wel 
aad ed eh ce enh a el en 

ABORSAOMH 
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CZRHBE .P11 O7=JUN-79 13:44 T11 RHCS3 TEST SEQ 0049 
2465 011172 017737 172164 003424 MOV @RHCS3,CS3 SAVE CONTENTS OF RHCS3 
2466 011200 013737 903424 001200 ~ MOV CS3,$TMP1 SETUP FCR WHAT tT IF NEEDED 
2467 011206 123777 001162 172146 CMPB $REGO,@RHCS3 31S THE BIT SET? 

2468 ‘011214 001022 BNE 2$ :NO,GO TO ERROR 

2469 011216 006137 001162 ROL $REGO + SETUP TO TEST NEXT BIT 
2470 011222 005337 003450 DEC LOOCNT <1 TO THE LOOP COUNT 

2471 011226 001356 BNE 1$ TEST NEXT BIT 

2472 011230 012737 000100 001162 MOV #1E3,$REGO ;SET INTERRUPT BIT 

24735 011236 013777 001162 172116 MOV $REGO,@RHCS3 :SET BIT 

2474 011244 017737 172112 003424 MOV @RHCS3,(S3 ;SAVE CONTENTS 
2475 011252 023777 001162 172102 CMP $REGO,@RHCS3 31S BIT SET? 

2476 011260 001451 BEG ERRS WAS THERE AN ERROR 

2477 011262 2$: ’ 
2478 011262 017737 172042 003420 MOV @RHCS1,CS1 SAVE RHCS1 

2479 011270 017737 172036 003444 MOV @RHWC , WC ;SAVE WORD COUNT 

2480 011276 017737 172032 003414 MOV @RHBA ,BA ;SAVE BUS ADDRESS 

2481 0113 005701 TST R1 1S IT AN RH11 

2482 011306 001406 BEQ 87$ :NO IT'S A 70 

2483 011310 005057 003416 CLR BAE ;CLEAR BAE 

2484 011314 005037 003424 CLR $3 :CLEAR CS3 

2485 011320 000137 011340 JMP 86$ ; CONT INUE 

2486 011324 017737 172030 003416 87$: MOV @RHBAE ,BAE 7 SAVE po ADDRESS EXTENSION 
2487 011332 017737 172024 003424 MOV @RHCS3,CS3 SAVE RHCS3 

2488 011340 017737 171774 003422 86$: MOV @RHCS2,CS2 SAVE CS2 

2489 011346 017737 171770 003432 MOV @RHST ,DS1 ;SAVE TESTER STATUS 

2490 011354 017737 171764 003436 MOV @RHER ,ER1 ;SAVE ERROR REGISTER 

2491 011362 017737 171762 003442 MOV @RHTDB, TDR > SAVE TESTER DATA REG. 
2492 011370 017737 171742 003440 MOV @RHMR2, TC SAVE MR2 at okt REG. 
2493 011376 104035 ERROR 35 BIT DID NOT SET 

2494 011400 004737 046362 JSR R7,WATBIT ;TELL WHAT BIT POSITION IS NO GOOD 
2495 011404 004737 050210 ERR5: JSR R7,ERRTST 

NOP 011410 004737 006572 JSR R7,CLEER : CLEAR ERRORS 

2498 arte mae eee 
2499 TRTEST 12 HWC BIT TEST 

2500 :*THIS Test CHECKS THE WORD COUNT REGISTER 

2501 7*TO SEE IF ALL BITS CAN BE SET AND CLEARED 

2502 [*AND CHECKS THE REGISTER USING ALTERNATE BITS 

2503 7*SET (52525) AND USING (125252) TO MAKE SURE 

2504 :*IT WORKS WITH ALTERNATE PATTERN. 

2505 .« DIGI SEES ISIS IISIISUOIIOIISIIIEIIUUU IO iorrtn 
25 011414 000004 TST12: SCOPE 

2507 011416 012737 000001 001162 MOV HONE , $REGO ;SET UP REFERANCE WORD 
2508 011424 013777 001162 171700 RHWCT: MOV $REGO, @RHWC sMOVE BIT INTO WORD COUNT REGISTER 
2509 0114352 023777 001162 171672 CMP $REGO, aRHWC 71S BIT SET? 

2510 011440 001454 BEQ 1$ :YES,CONTINUE BIT TEST 
2511 011442 013737 003444 001200 MOV WC, $TMP1 SETUP FOR WATBIT PROG. 
2512 011450 004737 .046362 JSR R7,WATBIT :GO TO WATBIT PROGRAM 
2513 011454 017737 171650 003420 MOV @RHCS1,CS1 SAVE RHCS1 

2514 011462 017737 171644 003444 MOV @RHWC , WC ;SAVE WORD COUNT 

2515 011470 017737 171640 003414 MOV @RHBA ,BA ; SAVE BUS ADDRESS 

2516 011476 005701 TST R1 71S IT AN RH11 

2517 011500 001406 . : BEQ 87$ NO hag & . 70 

2518 011502 005037 003416 CLR BAE ! :CLEAR BA 

2519 011506 005037 003424 : CLR CS3 ; CLEAR es 

2520 011512 000137 01! 32 JMP 86$ 7 CONTINUE 


L 4 
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CZRHBE .P11 O7=JUN=79 13:44 Te ° RHWC BIT TEST SEQ 0050 


017737 6 003416 87$: @RHBAE , BAE ; BUS ADDRESS EXTENSION 
0 @RHCS3,CS3 ; RHCS3 
86$: @RHCS2,CS2 CS2 
TESTER STATUS 
ERROR REGISTER 
; ine Yes DATA REG. 
003440 2,1C sSAVE MR2 TESTER REG. 
BIT WAS NOT SET IN RHWC REG 
;WAS IT BIT 15 THAT WAS LAST TESTED 
:YES ,GO TO NEXT PART OF TEST 
001162 NO, THEN TEST NEXT BIT 
Bi :DO BIT TEST AGAIN 
052525 001162 : SET UP_ALTERNATE BIT PATTERN 
171510 MO $REGO, aRHWC SET ALTERNATE BITS 
003444 @RHWC , WC SAVE RHWC CONTENTS 
001162 171474 $REGO. ARHWC sARE THEY ALL SET? 
1$ 7YES,CONTINUE TEST 
003444 001200 WC, $TMP1 SETUP FOR WATBIT PROG. 
R7 ,WATBIT :GO TO WATBIT PROGRAM 
003420 @RHCS1,CS1 ;SAVE RHCS1 
003444 CWC SAVE WORD COUNT 
003414 HBA ,BA : SAVE “— — 
1 :IS IT AN RH11 
:NO_IT'S A 70 


DAA SISTA 
SNNOUE Sw 
ANONMERONMELA 


SUSESENERES 


NS 
RES 


; CONT INUE 
003416 : ; SAVE BUS ADDRESS EXTENSION 
VE RHCS3 


iSAVE CS 
TSAVE TESTER STATUS 
TSAVE ERROR REGISTER 
TSAVE TESTER DATA REG. 
003440 2.TC TSAVE MR2 TESTER REG. 
:TEST FAILED ) 
001162 MOV : ZSET UP ALTERNATE OPPISITE BITS 
: $REGO, ARHWC 7SET OPPISITE ALTERNATE BITS 
@RHWC . WC :SAVE CONTENTS OF RHWC 
001162 171312 $REGO, ARHWC ZARE CORRECT BITS SET? 
ERR6 [WAS THERE AN ERROR 
003444 001200 WC, STMP1 :SETUP FOR WATBIT PROG. 
046362 R7.WATBIT [GO TO WATBIT PROGRAM 


171270 003420 MO @RHCS1,CS1 :SAVE RHCS1 

171264 003444 @RHWC , WC SAVE WORD COUNT 

171260 003414 @RHBA ,BA SAVE BUS ADDRESS 
R ;1S IT AN RH11 


NNN NNN NNN NNN OO 
SESNRESNESES 


N 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee ll ce kD ed ed ad td od od I 
Nt A St SS SS SS Sh 2 3 


Sx 
oO 


: CONT INUE 
003416 : SAVE BUS ADDRESS EXTENSION 
;SAVE RHCS3 


:SAVE CS2 
SAVE TESTER STATUS 
017737 003436 @RHER ,ER1 SAVE ERROR REGISTER 
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CZRHBE.P11 


94 012252 


012256 
012260 


012462 


O07=JUN=79 :13:44 


017737 


050210 
000006 
006572 


001162 
003416 
2 


001162 


003442 
003440 


004142 


001162 


171044 
001200 
003420 


003444 
003414 


003416 


003440 
001162 


il les 14 


E 
HIBYTE: 


E 
ALRIGT: 


M 4 
12=JUL=79 10:46 
TEST 


@RHTDB, TDR 
 weteaies 


RHWC , $RHWC 

#ZERO, ARHWC 

MINUS , @SRHWC 
7, @RHWC 

HIBYTE 

200 

$RHWC 

AZERO, ARHWC 

MINUS+1 , aSRHWC 

#177400, @RHWC 

ALRIG 

200 

R7,ERRTST 

#ZERO, @RHWC 

R7,CLEER 


PAGE 52 


SAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 

SOPPISITE BIT TEST FAILED 
GET READY im BYTES 


LOBYTE 
ANY EXTRA BITS 

0K O FAR 
;HIBYTE GATE NOT WORKING PROPERLY 
oe Fr FOR NEXT BYTE 

;CHECK THE HI BYTE 

:IS_IT OK 

its OK 

;LOBYTE GATE NOT WORKING PROPERLY 


:CLEAR WORD COUNT 
: CLEAR ERRORS 


III RICCI ICICI ICICI IIIS III IA ISIAIAIAI IAI AIA IIIS NAA AAAI HA 
TRTEST 13 RHBAE BIT TEST 

;*THIS TEST TESTS THE RHBAE REGISTER 

>*ONLY IF THE RH IS AN RH70,RH11'S 


;*DO NOT HAVE AN RHBAE 


REGISTER 


IOI OIE ISI SIUIOI ISSO IOOISI ICID IOI IO IIIS IID tot ttt 


$113: 


BAETST: 


R1 

TST14 

#1 ,$REGO 
$REGO, ARHBAE 


2 
#40, $REGO 
ERR? 
$REGO 
BAETST 


S RH AN RH70 


iI 
;3NO PASS OVER TEST 


SET UP BIT TEST 
:SET BIT IN RHBAE REGISTER 


3 SAVE CONTENTS OF RHBAE REGISTER 
:1S IT SET? 


7YES CONTINUE TEST 
;SETUP FOR WATBIT PROG. 
:GO a a PROGRAM 
:SAVE RHCS1 

SAVE WORD COUNT 

: SAVE BUS ee 


: CONT INUE 
: SAVE a ee EXTENSION 


TSAVE R 
SAVE CS2 
SAVE TESTER STATUS 
SAVE ERROR REGISTER 
: SAVE estes Big REG. 

E MR2 T R REG. 
‘alt DID NIT SET 
:1S_IT LAST 81T TO BE TESTED 
[WAS THERE AN ERROR 
:NO,SET UP_FOCR NEXT BIT 
>CONTINUE TEST 


SEQ 0051 
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CZRHBE.P11 


012464 
012470 


012474 
012476 


O7=JUN=79 13:44 


004737 
004737 


000004 
012737 


000137 


006572 
050210 


001162 
003414 


170556 


003416 


170466 


046362 
001162 


001162 
052525 


170352 


003416 
003424 
013020 


001162 


170606 
001200 


003414 


003416 


003440 


001162 


170402 
001200 


003414 


MACY11 30A(1052) 
113 RHBAE BIT 


ERR7: 


JSR 
JSR 


R7,CLEER 
R7,ERRTST 


N 
12=JUL=79 
TEST 


Fi ere 
10.46 PAGE 53 


CLEAR ERRORS 


FEAR RRR EEEREREREERETRREREREREEREERREEREEERERERAEERER ER RR 


TATEST 14 


RHBA 


BIT TEST 
:*THIS TEST TESTS THE BUS ADDRESS REGISTER 


:*BY FIRST ALTERNATLY SETTING AND CLEARING 
:*BITS IN THE BA REGISTER AND THEN hy - 


;*AN ALTERNA 


; TE BIT PATTERN (52525) 
;*OPPOSITE BIT PATTERN (125252). 


° KEARRERERE EER ERR REE EERE EERE RRR RR RRR REE EERE RRR ee 


TST14: 


BATST: 


87$: 
86$: 


1$: 


BATSTA: 


SCOPE 


#TWO,SREGO 
$REGO, @RHBA 
@RHBA ,BA 


$REGO. @RHBA 
1$ 


BA,$TMP1 
@RHCS1,CS1 
@RHWC , WC 


@RHBAE , BAE 
@RHCS3,CS3 
@RHCS2,CS2 
@RHST ,DS1 
@RHER,ER1 
@RHTDB, TDR 
@RHMR2 , TC 


3 
R7 ,WATBIT 
$REGO 


@RHBA ,BA 
SREGO, @RHBA 
BA, $TMP1 
@RHCS1,CS1 
@RHWC , WC 


SET UP BIT TEST 
:SET BIT IN RHBA REGISTER 
: SAVE CONTENTS OF BA REGISTER 


Se NUE TEST 
:SETUP FOR WATBIT PROG. 
SAVE RHCS1 

SAVE WORD COUNT 
SAVE BUS ADDRESS 
T AN RH11 


cs 
SAVE TESTER STATUS 
SAVE ERROR REGISTER 
SAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 
:NO,CORRECT BITS ARE NOT SET 
:GO TO WATBIT PROGRAM 
[WAS BIT 15 THE LAST BIT TESTED 
:YES,GO TO ALTERNATE BIT TEST 
7NO,SET UP TO L$ NEXT BIT 
:CONTINUE BIT TEST 
2 SET UP BIT PATTERN 


Mee CORRECT BITS SET 

;YES, cont ae TEST 

TUP FOR WATBIT PROG. 

“SAVE RHCS1 

:SAVE WORD COUNT 
SAVE BUS ADDRESS 
;1S IT RH11 
;NO_IT'S A 70 


SEQ 0052 


carp RH70 AND RH11 gy or» teh 


RHBE .P11 


013340 


07=JUN-79 


017737 


013737 


017737 
017737 


004737 


001162 
003414 


170200 
170174 
170170 


003416 


000376 


004136 


177400 


006572 
050210 


eoei ae 


003440 


001162 
170234 
003414 
170220 
001200 
093420 


003444 
003414 


003416 


003440 


004136 


170036 


170020 
170614 


170004 


B 5 
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114 TEST 


87$: 
86$: 


1$: 


GOOFED: 


87$: 
86$: 


ERR10: 


99$: 


98$: 


RHBA BIT 


MOV @RHBAE , BAE 
MOV @RHCS3,CS3 
MOV @RHCS2,CS2 
MOV @RHST,DS1 
MOV @RHER ,ER1 
MOV @RHTDB, TDR 
MOV @RHMR2 , TC 
ERROR 3 

JSR R7 ,WATBIT 
MOV #0AB, $REGO 
MOV $REGO,@RHBA 


@RHBA ,BA 
CMP $REGO, @RHBA 
ERR10 
MOV BA, $TMP1 
MOV @RHCS1,CS1 


MOV @RHWC , WC 
MOV @RHBA , BA 


TST R1 

BEQ 87$ 
CLR BAE 
CLR CS3 
JMP 86$ 


MOV @RHTDB, TDR 
@RHMR2 , TC 


3 
JSR R7,WATBIT 
MOV RHBA , $RHBA 
MOV #ZERO,@RHBA 
MOVB MINUS , dSRNBA 
CMP nee 


02 
$RHBA 
MOV A#ZERO,@RHBA 


MOVB MINUS+1,@$RHBA 
CMP A eater 


mn 
» 
tad 
a 
ins) 


ERROR 202 
JSR R7,CLEER 
JSR R7,ERRTST 


SAVE BUS ADDRESS EXTENSION 
RHCS3 


sSAVE CS2 
SAVE TESTER STATUS 


; SAVE ER REG. 

:NO,CORRECT BITS ARE NOT SET 

:GO_TO WATBIT PROGRAM 

SET UP OPPOSITE ALTERNATE BIT TEST 
;SET BITS IN RHBA REGISTER 

SAVE CONTENTS OF BA REGISTER 

SARE CORRECT BITS SET 

:WAS THERE AN ERROR 

:SETUP FOR WATBIT PROG. 


SAVE RHCS1 
SAVE WORD COUNT 
7 SAVE BUS ADDRESS 


SAVE TESTER DATA REG. 

SAVE MR2 TESTER REG. 
:NO,CORRECT BITS ARE NOT SET 
:GO_ TO WATBIT PROGRAM 

:GET READY TO TEST BYTES 

:ZERO THE BUS ADDRESS 

sMOVE THE BYTE 

:DID IT GET THERE ALRIGHT 

7: YES,CHECK NEXT BYTE 

;HIGH BYTE DOES NOT SEEM TO BE WORKING 
:GET READY FOR NEXT BYTE 

:ZERO THE BUS ADDRESS 

:MOVE TO UPPER BYTE 

DID IT GET a ALRIGHT 
:YES.EXIT TES 

SLOBYTE IS NOT WORKING PROPERLY 
ZCLAER ERPORS 


SEQ 0053 


MAS SBUS “a AND RH11 mite 


CZRHBE 


013344 


013346 


07=JUN=7 


090004 


005037 


000770 
017737 


104004 
004757 


003450 


003446 


003446 
000200 


003446 


167670 
167664 
167669 


003416 


007224 
000200 


167550 


167540 
001162 


003426 


046362 


001162 
167764 


1677306 


167706 


003420 
003444 
003414 


003416 


167552 


167544 
003426 


003426 
003426 


001200 


MACY11 "ean eit 
114 RHBA B 


C: 
12=JUL=79 
TEST 


5 
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be RARER RARAERAEREAAEREREREREERRREHEHEEREERERRHEEE HERE RE EES 


S*TEST 15 


RHDB BIT TEST 


;*THIS TEST TESTS THE RH DATA BUFFER REGISTER 
:*BY FIRST ALTERNATLY SETTING AND RESETING BITS 
:*IN_ THE RHDB REGISTER AND THEN BY USING AN 
; *ALTERNATE BIT PATTERN (52525) AND AN OPPISITE 


7 *ALTERNATE BIT PATTERN (125252) 


bd PITISISISTITESTLIITOTIESI TTT TTTTTETTT TTT TTT TTT TTT TTT TTT eT TT ee 


TST15: SCOPE 
CLR LOOCNT 
MOV HONE , SRE GO 
DBTST: MOV $REGO,@RHDB 
CLR BITCNT 
18$: BIT ARDY, @RHCS1 
BNE ABLE 
INC BITCNT 
BNE 18% 
CLR BITCNT 
19$: BIT ARDY ,@RHCS1 
BNE ABLE 
INC BITCNT 
BEQ ABLE 
BR 19$ 
ABLE: 
MOV @RHCS1,CS1 
MOV @RHWC , WC 
MOV @RHEA, 
TST R1 
BEG 87$ 
CLR BAE 
CLR CS3 
JMP 86$ 
87%: MOV @RHBAE , BAE 
MOV @RHCS3,CS3 
86$: MOV @RHCS?.CS2 


MOV RHTDB,TDR 
MOV @RHMR2 , TC 
BIT #RDY ,@RHCS1 


E RDYSET 
ERROR 102 
JSR R7 ,WHYFO 
RDYSET: BIT MOR ,ARHCS2 
BNE ORSET 
MOV @RHDB , DB 
ERROR 4 
ORSET: MOV @RHDB ,DB 
CMP $REGO,DB 
BEQ 1$ 
MOV DB, $TMP1 
ERROR 4 


JSR R7,WATBIT 


:CLEAR LOOP eg 

SET UP BIT TES 

7SET BIT IN woe bp cori 
;CLEAR BIT COUNTE 

1S RDY SET 

;BIT IS SET 

> COUNT UP 

SNOT FINISHED COUNTING 
:GET READY TO DO IT AGAIN 
sIS IT SET YET? 

F¥ES 

; COUNT UP 

:BIT IS NOT GOING TO SET 


SAVE RHCS1 
SAVE WORD COUNT 
SAVE BUS ADDRESS 


NUE 
-; SAVE aide EXTENSION 


SAVE R 

iSAVE CS2 

SAVE TESTER STATUS 

; SAVE ERROR REGISTER 
;SAVE TESTER DATA REG. 
;SAVE MR2 TESTER REG. 


“READY DID NOT SET 
ZANY ERRORS SET 


“YES, IT'S SET 

[SAVE CONTENTS OF RHDB REGISTER 
[OUTPUT READY DID NOT SET 

SAVE CONTENTS OF REGISTER 

:1S CORRECT BIT SET? 
:YES,CONTINUE TEST 

; SETUP FOR WATBIT PROG. 
:NO,CORRECT BIT IS NOT SET 

:GO TO WATBIT PROGRAM 


SEQ 0054 


are RH70 AND RH11 Sey os has 


HBE .P11 07=JUN-79 


005737 
100415 


001401 
014000 000770 


017737 


014210 


~ 


13:4 
001162 
000001 
003450 


000200 
003446 


003446 
000200 


003446 


167322 
167316 
167312 


003416 


000200 
001162 


167206 
003426 


000200 


003450 


003450 


001162 


167416 
167372 


167350 


003420 
003444 
003414 


003416 


167214 


167214 
003426 
001200 
001162 
167154 


167130 


i 30A(1052) 


1$: 


2$: 


DBTSTA: 


1$: 


18$: 


19$: 


DBOUT : 


87$: 
86$: 


es: 


1$: 


18$: 


D 
12=JUL=79 
RHDB BIT TEST 
TST $REGO 
BM] DBTSTA 
CMP HONE ,LOOCNT 
BEQ $ 
INC LOOCNT 
JMP DBTST 
CLR LOOCNT 
ROL $REGO 
BR BIST 
CMP HONE ,LOOCNT 
BEQ i$ 
INC LOOCNT 
JMP DRBTST 
MOV #AB, $REGO 
MOV $REGO, aRHDB 
CLR BITCNT 
BIT #OR , @RHCS2 
BNE OUT 
INC BITCNT 
BNE $ 
CLR ITCNT 
BIT #OR , ARHCS2 
BNE OUT 
INC BITCNT 
BEQ DBOUT 
BR 19$ 
MOV @RHCS1,CS1 
MOV @RHWC , WC 
MOV @RHBA , BA 
TST R1 
BEQ 87$ 
CLR BAE 
CLR CS3 
JMP 86$ 
MOV @RHBAE , BAE 
MOV @RHCS3,CS3 
MOV @RHCS2,CS2 
MOV @RHST,DS1 
MOV @RHER,ER1 
MOV @RHTDB, TDR 
MOV @RHMR2 , T 
BIT #OR,@RHCS2 
BNE 2$ 
ERROR 41 
> (MP $REGO, @RHDB 
BEQ 1$ 
MOV @RHDB , DB 
MOV DB, $TMP1 
ERROR 4 
JSR R7,WATBIT 
MOV #0AB, $REGO 
MOV $REGO, aRHDB 
CLR BITCNT 
BIT #OR , ARHCS2 


+ BNE OABTSf 


5 
10:46 PAGE 


;WAS BIT 15 THE LAST 
:YES,GO TO ALTERNATE 
31S IT FIRST TIME 

sNO, IT'S 


7 YES, 
CONTINUE TEST 
CLEAR LOOP COUNT 


56 


SECOND 


IT 
IT 


TESTED 
PATTERN TEST 


:NO,SET UP TO TEST NEXT BIT 


:GO AND TEST BIT 
iis IT FIRST TIME 


0 

; INCREMENT LOOP COUNTER 
;D0 AGAIN 

;SET UP BIT PATTERN TEST 


sSET BITS IN REGISTER — 


:CLEAR BIT COUNTER 


:IS_OR SET 


:BIT IS SET 
COUNT UP 
NOT FINISHED COUNTING 


:GET READY TO DO IT AGAIN 
atze SET YET? 


COUNT UP 
:BIT IS NOT GOING TO SET 


SAVE RHCS1 


SSAVE CS2 
SAVE TESTER STATUS 
SAVE ERROR REGISTER 


SAVE WORD COUNT 
; SAVE BUS . oo 


:IS IT AN 
:NO_IT'S A 70 
:CLEAR BAE 
CLEAR CS3 


; CONT INUE 
: SAVE BUS < sate EXTENSION 


SAVE RHCS 


SAVE TESTER DATA REG. 


SAVE MR2 TESTER REG. 


:I1S OUTPUT READY ? 


YES CONTINUE 


7YES,CONTINUE T 


; SAVE CONTENTS OF REGISTER 
BIT TEST 


_— m-4 


B 
R BIT 
RS 


TEST 
SOUTPUT READY dae 5oet 
SARE CORRECT i SET? 


SEQ 0055 


MASSBUS RH70 AND RH11 win be 


CZRHBE .P11 
849 014212 


014430 


2894 014434 


014512 


07=JUN-79 
005237 


004737 
004737 


000004 


001015 


13:4 
003446 


003446 
000200 


003446 


167069 
167054 
167050 


000200 


166754 
001162 


003426 


‘046362 


006572 
050210 


177777 
000007 


000000 


000200" 


167106 


003420 
003444 
003414 


003416 


166752 
003426 
003426 
001200 


166666 
166666 


166674 
166642 
166630 


166616 


ees 30A(1052) 


19$%: 


OABTST: 
MYSTIC: 


87$: 
863: 


2s: 


ERR11: 


DR ERR RRR ERE REE ERE EEE REE ER Oe 


E 
12=JUL=79 


RHDB BIT TEST 


TETEST 16 


i DOGO III IOISISIIIOI IIIS IOUIUOIOIISISIOIIEISIIOEISISOUOE INOUE totit 


TST16: 


18$: 


BITCNT 
18% 


BITCNT 
AOR , ARHCS2 
OABTST 
BITCNT 
OABTST 

19$ 


@RHCS1,CS1 
@RHWC , WC 
@RHBA ,BA 


° 


@RHBAE ,BAE 
@RHCS3,CS3 
\@RHCS2, (S52 
@RHST,DS1 
@RHER ,ER1 
@RHTDB,TDR 
@RHMR2 , TC 
plated 


R7,WATBIT 
R7,CLEER 
R7,ERRTST 


RHWC OPERATIONAL TEST 


_e 
10:46 


PAGE 


; COUNT UP 

NOT FINISHED COUNTING 
GET READY TC DO IT AGAIN 
alg SET YET? 


57 


ECO 


UNT UP 
;BIT IS NOT GOING TO SET 


sSAVE RHCS1 
SAVE WORD COUNT 
SAVE BUS ADDRESS 


AR 
ZCLEAR CS5 
CONTI NUE 


CS2 
SAVE TESTER STATUS 


;SAVE ERROR REGISTER 
; SAVE aS te DATA REG. 
SAVE MR2 TESTER REG. 
4 Satie READY SET 


[OUTPUT READY DID NOT SET 
SAVE CONTENTS OF REGISTER 
zARE CORRECT BITS SET? 


:WAS THERE AN ERROR 


:SETUP FGR WATBIT PROG. 
CORRECT jBITS ARE NOT SET 
:GO TO WATBIT PROGRAM 


: CLEAR ERRORS 


:*THIS TEST CHECKS THAT WHEN THE WORD COUNT 
:*REGISTER IS INCREMENTED IT IS CARRYED TO THE 
:*HIGHEST BIT AND IS RETURNED TO ZERO 


SCOPE 
M 


#-1, aRHWC 
a7 .GRHC Se 


1$ 

#7ERO, @RHBAE 
4$TMP3, ARHBA 
#WRITEO, @RHCS1 
BITCNT 
#RDY,@RHCS1 
6$ 


SETUP FOR 1_WORD 


SETUP UNIT 7 
‘ie! AN RH11 


VE oF eee EXTENSION 


\ 
\ 


:SETUP BUS ADDRESS EXTENSION 


: SETUP BUS ADDRESS 


CLEAR BIT COUNTER 
:1S_RDY SET 
BIT IS SET 


SEQ 0056 


MASSBUS _RH70 AND RH11_DIAGNOSTIC 


CZRHBE .P11 
014514 


014762 
014764 


014770 
014774 


014776 
015002 


O7=JUN=79 13:44 


005237 


000137 
005037 
104103 


000137 


104104 . 


003446 


003446 
000200 


003446 


166556 
166552 
166546 


003416 


000200 
166434 
177777 
166416 
001162 


007224 
001204 


001162 


075010 
001204 


015010 
001162 


015010 


166574 


003420 
003444 
003414 


003416 


166440 


166424 


166412 


166370 


rw tah 30A(1052) 
716 


F 
12=JUL=79 
RHWC OPERATIONAL TFS 


BITCNT 

18% 

BITCNT 

ARDY ,ARHCS1 
6$ 

BITCNT 

6$ 


19$ 
@RHCS1,CS1 


@RHCS2,C52 
@RHST ,DS1 
@RHER,ER1 
@RHTDB, TDR 
@RHMR2 , TC 
#RDY ,ARHCS1 
es 

@RHWC 

3$ 
#~1 , ARHWC 
4$ 

@RHwC 

8$ 

$REGO 

77 

R7 ,WHYFO 


$TMP3,@QRHTDB 
5$ 


$REGO 
123 


$ 
$TMP3,QRHTDB 
7$ 


102 


8$ 
$REGO 
103 


5 
a PAGE 58 


; COUNT UP 

sNOT FINISHED COUNTING 
GET READY TO ~ IT AGAIN 
ot SET YET 


COUNT UP 
:BIT IS NOT GOING TO SET 


SAVE RHCS1 

SAVE WORD COUNT 

; SAVE BUS ADDRESS 

71S IT AN kA11 

:NO_IT'S A 70 

; CLEAR BAE 

CLEAR CS3 

: CONT INUE 

7 SAVE ADDRESS EXTENSION 
sSAVE RHCS3 

SAVE CS2 
7SAVE TESTER STATUS 

;SAVE ERROR REGISTER 

SAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 

:IS READY SET 

YES 

“DOES wC=0 

:YES 

SIS IT EQUAL TO OLD 
:YES,SEE IF DATA WAS WRITTEN 
:DID WC INCREMENT ? 
sYES,EXIT TEST 

SETUP GOOD DATA 
sRDY DID NOT SET, WC DID NOT CLEAR 
ARE ANY ERROR BITS SET 
:WAS_ INFO WRITTEN TO TESTER 
INFO WAS WRITTEN TO TESTER 
SETUP GOOD DATA 

WRITE OPERATION DID NOT WORK 
:RH DID NOT START OPERATION 


:RDY BIT NOT 


SET 
; INFORMATION WAS WRITTEN TO TEST DB, 


SETUP GOOD DATA 

:DURING A WRITE OPERATION RDY 

:DID NOT SET, WC DID NOT INCREMENT 
ab Testen INFO DID GET WRITTEN 


- 


:RDY BIT DID NOT S&T AFTER 

2A WRITE OPERATION, WC WAS INC 
SAND INF WAS NOT WRITTEN TO 
TESTER 


SEG 0057 
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075004 
015010 
015014 


015020 
015022 


015030 


mk ka ed a nk ed ed ed od ow 


015274 


O7=JUN=79 13:44 


000004 
012737 
005701 


112777 
005037 


001022 


007224 
006572 
050210 


000001 


000037 
177776 
177777 
000461 
000061 


003446 
000200 


003446 


003446 
000200 


003446 


166156 


166056 


001000 


001272 


166316 
166264 
166254 


166240 
166230 


166216 


166174 


003420 
003444 


~ 003414 


003416 


003440 


166034 


G 5 
~~ 30A(i052) 12=JUL=79 Py 46 PAGE 59 


RHWC OPERATIONAL TES 


JSR R7,WHYFO 
8$: JSR R7,CLEER 
JSR R7,ERRTST 


-4 CRRA REE ERE EEE ERE TERRE ARR EKRERERE ERR REE 


S*TEST 17 RHBA OPERATIONAL TEST 


s*THIS TEST CHECKS THAT THE BUS ADDRESS REGISTER 


:WAS AN ERROR SET 
7; CLEAR ~RRORS 
sWAS THER ANY ERRORS 


;*WILL CARRY THROUGH TO THE HIGHEST BI; 


;*IN THE BUS ADDRESS EXTENSION REGISTER OR BIT Al? 
7*IN THE RHCSi REGISTER AFTER IT IS INCREMENTED 


bd  POSERERNE CHER RARRERNRCRNRERRERTERERRARAARAeRHRNHeeReeeneRsener 


TST17: SCOPE 


MOV #1,$TIMES 
TST R1 
BM] 1$ 
MOV #37, QRHBAE 
'$: MOV #177776, aRHBA 
MOV #~1 ,ARHWC 
TST R1 
BEQ 34$ 
MOV #A16!WRITEO,@RHCS1 
BR 35$ 
See" MOVB A#WRITEO,@RHCS1 


CLR BITCNT 
188: BIT ARDY ,@RHCS1 
BNE 2$ 


INC BITCNT 
18$ 


CLR BITCNT 
19$: BIT late 


BNE 
INC BITCNT 
BEQ 2$ 
BR 19$ 

2$: : 
MOV @RHCS1,CS1 
MOV @RHWC, WC : 
MOV aR “BA 
TST R1 
BEQ 87$ 
CLR BAE 
CLR cS3 
JMP 86$ 


87$: MOV @RHBAE , 
86$: = MOV a@RHCS2, 


MOV @RHTDB, TDR 
MOV @RHMR2 , TC 


TST R1 

BEQ 12$ 

BIT #417 ,aRHCS1 
BNE 4$ 


33D0-°7 ITERATION 


7IS_IT AN 11 OR A 70 
:1T°S AN RH11 
SETUP BAE IN RH70 


SETUP BA 


7SETUP WORD COUNT 
ts A RH70 


sYE 

:TELL IT TO WRITE 
:SKIP OVER 70 CODE 
TELL IT TO WRITE 


;CLEAR BIT COUNTER 
:I1S_RDY SET 


BIT IS SET 
: COUNT UP 


:NOT FINISHED COUNTING 
;GET READY TO DO IT AGAIN 
4) Bo, SET VET? 


COUNT UP 


:BIT IS NOT? GOING TO SET 


SAVE RHCS1 


SAVE WORD COUNT 
: SAVE BUS —— 


CONTI 


CS2 
SAVE TESTER STATUS 
SAVE ERROR REGISTER 
SAVE TESTER DATA RiG. 


a 
'D0 RH7Q PART OF TEST 
4 Al7 GET SET 


. 
. 


NUE 
+ SAVE BUS ADDRESS EXTENSION 
: RHCS3 


SEQ 0058 


H 5 
MASSBUS RH70 AND RH11 pracnosti MACY11 30A(10S2) 12=-JUL=79 10:46 PAGE 60 
CZ7RHBE .P11 O7=JUN=79 13:4 117 RHBA OPERATIONAL TEST SEQ 0059 


015276 000137 015410 5$ :CONT. FOR RH11 
000040 166050 12$: 440, @RHBAE . DID BAE INC 
4$ “BAE ER ESENTED 
000037 166040 437 ,@RHBAE 31S BAE OLD VALUE 
3$ BAE DID NOT. INCREMENT 
166032 @RHBAE 71S BAE ZERO 
9 ‘BAE IS ZERO 
;BAE GOT MESSED UP DOING A WRITE 
;DID AN ERROR OTHER THAN NEM CAVSIT 


165766 : :DID BA INCREMENT ? 
YES ,EXIT TEST 
112 :BA DID NOT INCREMENT 
007224 :WAS AN ERROR BIT SET 
015456 MP 8$ EXIT TEST 
: 106 SBAE DID NOT INCREMENT 
007224 :WAS AN ERROR BIT SET 
015456 8$ EXIT TEST 
015374 104107 ' : SBAE INCREMENTED OK BUT A17 + 
5A16 DID NOT INC PROPERLY IN RHCS1 
015376 see ed 015456 ; 


: 5 S ZERO 
015456 MP 8$ - ;BIT 5 IN BAE SHOULD BE SET 
000400 165712 : . i1S A 16 SET 
BNE 10$ : sYES, BA DID NOT INCREMENT 
015420 104111 *A17 DID NOT SET WHEN BA WAS 


zs INC 
015422 000137 015456 ‘ sEXIT TEST 
165702 : :DOES BA =0 
Q :YES, BA INCREMENTED 
‘BA BID NOT INCREMENT 
015456 MP SEXIT TEST 
: :1S IT A 70 OR 11 
BM! *GO TO CORRECT ERROR 
015446 1 :BA INCREMENTED BUT DID NOT 
> CARRY TO BAE 
015450 000137 015456 ; JMP = OUT OF TEST 
015454 104113 : BA INCREMENTED BUT IT DID NOT 
* CARRY OVER TO Al7 + Al6 
015456 004737 006572 8$: _ -R7,CLEER > CLEAR ERRORS 
015462 004737 050210 R7,ERRTST WAS THERE ANY ERRORS 


e SERRE REE EKER EE EEE KEE EKER EEE EERE EKER ERE ED 
Z*TEST 20 NEM, TRE,SC BIT TEST 
;*THIS TEST WILL CHECK THAT NON EXISTING MEMORY 
:*WILL SET THE TRE AND SC BIT IN RHCS1 REGISTER 
: PY seebeb)e6netheen0eee6e0eenee8es0040n80es0000086esnbesesseeswecs 
015466 000004 1$120: ‘3 


40$ 
003362 165632 raat 


177702 165622 408: #177702 ,@RHBA :SET UP BUS BUS ADDRESS 
: ! og ‘NO SKIP 4 BA 





a 
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CZRHBE P11 O7=JUN=79 13:4 T20 NEM,TRE,SC BIT TEST 


012777 000077 165634 #77 , ARHBAE ;SET UP BAE REGISTER 
98: SET WORD COUNT TO ONE WORD 
@RHCS2 >SET UNIT NUMBER 
165562 mAiGiAT?IREADO, @RHCS1 TELL IT TO READ 
BITCNT ZCLEAR BIT COUNTER - 
165550 188: ARDY , @RHCS1 :1S RDY SET 
: DELTA BIT IS ae 
003446 BITCNT > COUNT 
BNE , 18$ ZNOT FINISHED COUNTING 
003446 BITCNT :GET READY TO DO IT AGAIN 
000200 165526 198: #RDY -@RHCS1 1S IT SET YET? 
L y 


003446 BITCNT : COUNT UP 
DELTA :BIT IS NOT GOING TO SET 
000770 B 19$ 


017737 165520 003422 @RHCS2,CS2 SAVE CONTENTS OF RHCS2 
017737 165502 001162 MO @RHCS1, $REGO :SET UP NEEDED BITS ONLY 
042737 027777 001162 #GO!TERDY!A16! A17!PSEL ‘BVA!MCPE 'READ6, $REGO 
4 ;CLEAR BITS NOT NEEDED 
017737 165466 003420 @RHCS1,CS1 :SAVE RHCS1 
165462 003444 ° SAVE WORD COUNT 
165456 003414 _— BA SAVE BUS ADDRESS 


31S IT AN RH11 
ZNO IT'S A 70 
CLEAR BAE 
CLEAR CS3 
, : CONT INUE 
003416 : P > SAVE on ADDRESS EXTENSION 
SAVE RHCS3 


iSAVE CS2 
:SAVE TESTER STATUS 
Q SAVE ERROR REGISTER 
@RHTDB, TDR SSAVE TESTER DATA REG. 
00344 0 @RHMR2 , TC SAVE MR2 TESTER REG. 
165350 #RDY , @RHCS1 


9 
102 : 
007224 S R7, WHYFO SANY ERRORS SET 
004000 165342 : #NEM, @RHCS2 [1S NEM SET 
1$ [YES CHECK TRE AND SC 
140000 001162 #SC! TRE, $REGO "IS THE SC AND TRE BITS SET 
‘YES NEM IS IN ERROR 
040000 001162 ATRE, $REGO ‘IS JUST THE TRE BIT SET 
3$ TRE BIT MUST BE_IN ERROR 
100000 001162 #SC,$REGO ‘IS JUST THE SC BIT SET 
4$ ‘SC BIT SET ERRONIOUSLY 
7 ‘NEM NOT SET IN RHCS2 
8$ ‘SET UP TO TEST AGAIN 
140000 001162 1$: #SC! TRE, $REGO 71S SC AND TRE SET 
22$ ‘FIND THE TERROR 
920000 004124 MO #MCPE ,$CS1 EST FOR SHORTS 
173400 #MPE 'MXF 'PGE ‘NED! UPE!wWCE!DLT, scsi" 
174000 #WCELO!WCEHI ‘DPELO! DPEHI | APE .$C53 
016066 000000 #0,$ST 
016074 012737 030175 004134 @ILF RMR! CPE !DPE!RMBEX!RFAIL!DTE ‘OPI. $ER 


Non oe Woah waAOSS 
NAME WN 9 OD NAMES WM—O OC 


WWNINIWNINWNWNWNIWN NWNINWNNWNWNWNAWW 


Mrmr 
Oo 
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CZRHBE .P11 


016102 


016152 
016156 


016160 
016162 


016166 
016170 
016172 


016176 


016254 


016260 


O7=JUN-79 1 
012737 
737 


000415 
104010 
004737 


000411 
104011 
004737 


001015 


4d 44 


100000 


007224 


007224 


007224 


007224 


041400 
001103 
000100 
004000 


006572 
050210 


177777 
000007 


000200 


004122 


001162 
001162 


177570 


165126 
165074 


165042 
165042 


165050 


164776 
164764 


J 5 
Macy 30A(1052) I2-yuL=79° 10:46 PAGE 62 
120 NEM, TRE,SC BIT TEST 


MOV #-7 BEFORE . sTELL WHYFO ITS FOR SHORTS 
JSR R7,WHYFO ;TEST FOR SHORTS 


CLR BEF ORE SWE HAVE CHECKED FOR SHORTS 
JMP 8$ ZLEAVE THE TEST 
22$: BIT ATRE , $SREGO THEN IS THE TRE BIT SET 
BNE 6$ :SC BIT DID NOT SEE TRE BIT 
BIT #SC .$REGO :1S_THE SC BIT SET 
BNE 7$ ° ‘ ; TRE HAS AN OPEN GOING TO BUS 
ERROR 6 STRE SET LOGIC NOT WORK NG 
BR 8$ :SET UP TO TEST AGAIN 
2$: ERROR 7 :NEM HAS OPEN IN LINE GOING TO BUS 
JSR R7 ,WHYFO :SEE IF ANY OTHER ERROR BIT IS 
7SET OTHER THAN NEM 
BR 8s :SET UP TO TEST AGAIN 
3$: ERROR i0 ;SOMTHING WRONG WITH TRE BIT 
JSR R7,WHYFO 7;SEE IF AN ERROR BIT _IS SET 
:0R BOTH NEM IN RHCS2 AND SC IN 
:RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS 
BR 8$ :SET UP TO TEST AGAIN 
4$: ERROR 11 33! BIT WAS SET 8Y EITHER ATTN OR 
JSR R7,WHYFO FIND WHAT ERROR BIT IS SET 
“MCPE ERROR OR pe IS SHORTED TO +5 VOLTS 
BR 8$ ;SETUP TO TEST AGAIN 
6$: ERROR 12 TRE WAS SET BY OTHER THAN NEM 
JSR R7,WHYFO :FIND ERROR BIT THAT SET TRE 
BR 8$ 4 hi TO TEST AGAIN 
7$: ERROR 13 TRE HAS AN OPEN GOING TO THE BUS 
8$: BIT #SW14!SW9!SW8,a4177570 SANY LOOPING BEEING DONE 
BNE 21$ :YES,LOAD TRE NO MATTER WHAT 
TSTB SERFLG ;WAS THERE AN ERROR 
BNE 9$ :SKIP TRE CHECK 
21$: *MOVB #TREB,@RHCS1B [LOAD TRE 
BIT A#NEM, ARHCS2 :DID ERROR CLEAR 
BEQ 9$ YES EXIT TEST 
ERROR 50 [LOADING TRE DID NOT CLEAR ERROR 
9: JSR R7,CLEER SEE IF ERRORS ARE CLEARED 


JSR R7,ERRTST 


DOI UII IUIOIOISIUIUIOIIIUIOIOIIIIUIDIOI IOI IUD i ott 
‘TEST 21 WCE, TRE,SC BIT TEST 

;*THIS TEST WILL CHECK THAT TRE AND SC SET 

:*WHEN A WRITE CHECK ERROR OCCURS (WCE) 
‘i jASAARA AERA AREA ERE R ERR REERRER ERE REST RRER SERRE REAR ENERO EEE TS 


TST21: SCOPE 


MOV #-1 ,ARHWC ZONE WORD TRANSFER 

MOV #7 ,ARHCS2 7TO UNIT ONE 

TST R1 31S IT AN RH70 

BNE 9$ sNO . 

MOV #ZERO,@RHBAE ;oETUP RHBAE REGISTER 
9$: MOV #$REG4 ,Q@RHBA ;SETUP BUS ADDRESS 

MOV #AB,SREG4 ;CREATE INFORMATION 

MOV MWRITEO,@RHCS1 sTELL IT TO WRITE 

CLR BITCNT ;CLEAR BIT COUNTER 
18$: BIT #RDY ,@RHCS1 + :1S RDY SET 


BNE WCETST BIT IS SET 


SEQ 0061 


5 
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CZRHBE .P11 O7=JUN-79 13:44 T21 WCE, TRE,SC BIT TEST 


005237 003446 BITCNT ;COUNT UP 
BN 18$ ! NOT * INISHED COUNTING 
003446 BITCNT + GET READY TO DO IT AGAIN 
000200 #RDY ,ARHCS1 1S IT SET YET? 
WCETST i YES 
003446 BITCNT COUNT UP 
WCETST BIT IS NOT GOING TO SET 


B 19$ 
WCETST: 
000040 164732 B are @RHCS2 ;DO A CONTROLER CLEAR 
003446 NT ;SET UP FOR DELAY 
003446 17$: : ; COUNT UP 


7$ 
000007 164712 sSELECT UNIT # 
003446 BITCNT CLEAR BIT COUNTER 
000200 164670 : ARDY ,@RHCS1 :1S_RDY SET 
BN WCTST :BIT IS SET 
003446 BITCNT ; COUNT UP 
18$ NOT FINISHED COUNTING 
003446 BITCNT :GET READY TO . IT AGAIN 
000200 164646 : ARDY , @RHCS1 siS IY SET VET? 
WCTST > YES 
003446 BITCNT ; COUNT UP 
WCTST. ;BIT IS NOT GOING TO SET 
000770 B 19$ 


032777 000209 164626 > oi #RDY,  @RHCS1 :1S READY SET 
20$ “YES 


102 sREADY NOT SET 
007224 R7, WHYFO ANY ERRORS SET 
164612 3 #~1 , ARHWC * RESET WORD COUNT 
pool h @RHBA RESET BUS ADDRESS 
#OAB, $REG4 CREATE WRITE CHECK ERROR 
164566 #WRCHO, @RHCS1 ;MAKE THE ERROR 
BITCNT :CLEAR BIT COUNTER 
000200 164554 : a gh tail :IS_RDY SET 


:BIT IS SET 

003446 COUNT UP 

18$ NOT FINISHED COUNTING 
003446 BITCN :GET READY TO . IT AGAIN 
000200 164532 : :IS_ IT SET YET? 

WCETRE > YES 
003446 COUNT UP 
:BIT IS NOT GOING TO SET 


‘ 


017737 164524 003422. " M @RHCS2,CS2 ;SAVE CONTENTS 
017737 164506 001162 @RHCS1. $REGO =SET UP NEEDED BITS ONLY 
042737 027777 001162 #GO!IE!RDY!A16!A17:PSEL IDVAMCPE !READS .$REGO 


AR BITS NOT NEEDED 
017737 164472 003420 @RHCS1,CS1 CS1 
194466 003444 @RHWC , WC ; 
164462 003414 @RHBA ,BA ; SAVE BUS vs ta 
R1 S IT AN RH11 
87$ NO IT*S A 70 
005037 003416 ’ BAE CLEAR BAE 





MASSBUS RH70 AND RH11_DIAGNOSTIC 
07-JUN-7 


CZRHBE .P11 


017146 


017152 
017154 
017156 


005037 
000137 


004737 


000411 
104011 
004737 
000405 
104017 


004737 
000401 


9 13:44 


003424 


000200 


007224 
040000 


140000 
040000 
100000 


140000 
020000 


040000 
100000 


007224 


007224 


007224 


007224 


003416 


164354 


164346 
001162 
001162 
001162 


001162 
004124 


004122 


001162 
001162 


5 
ie 30A(1052) ‘eye re 10:46 


WCE,TRE,SC BIT T 
CS3 
86$ 
@RHBAE . BAE 
@RHCS3,CS3 
@RHCS2,CS2 
@RHST,DS1 
@RHER,ER1 
@RHTDB, TDR 
@RHMR2 , TC 
ARDY ,ARCS1 
99% 
102 
R7,WHYFO 
iad tata 
ASC! TRE, $REGO 
ATRE , SREGO 
3$ 
#SC,$REGO 
4$ 
14 
8$ 
ASC! TRE, $REGO 
22$ ; 
AMCPE ,$CS1 


PAGE 64 


CLEAR CS3 

; CONT INUE 

BUS ADDRESS EXTENSION 
RHCS3 


CS2 

TESTER STATUS 

ERROR REGISTER 

TESTER DATA REG. 
E MR2 TESTER REG. 


ANY ERRORS SET 
:1S WCE SET 
iYES CHECK TRE AND SC 
S THE SC AND TRE BITS SET 

“YES WCE IS_IN ERROR 
21S JUST THE TRE BIT SET 
:TRE BIT MUST BE IN ERROR 
:I1S JUST THE SC BIT SET 
:SC_BIT SET ERRONIOUSLY 
:WCE NOT SET IN RHCS2 
:SET UP TO TEST AGAIN 
:IS SC AND TRE SET 
:F IND THE ERROR 

TEST FOR SHORTS 


#MPE !MXF ! PGE !NEM!NED!UPE!DLT, $cs? 
#DPELO! DPEHI !APE ,$CS3 
$ST.$ST 


$ER,$ER 
4-1 ,BEF ORE 
R7 ,WHYFO 
BEF ORE 

8$ 
ATRE , $REGO 
6$ 

ASC, $REGO 
7$ 


6 
8$ 


15 
R7,WHYFO 
8$ 
16 
R7 ,WHYFO 


8$ 
11 
R7,WHYFO 
8$ 
17 
R7,WHYFO 
8$ 


STELL WHYFO ITS FOR SHORTS 
TEST FOR SHORTS 
WE HAVE CHECKED FOR SHORTS 

LEAVE THE TEST 

THEN IS THE TRE BIT SET 

:SC BIT DID NOT SEE TRE BIT 

:1S THE SC BIT SET 

TRE HAS AN OPEN GOING TO 8US 

TRE SET LOGIC NOT WORKING 
SET UP TO TEST AGAIN 

zWCE HAS OPEN IN LINE GOING TO BUS 
SEE IF ANY OTHER ERROR BIT IS 

:SET OTHER THAN WCE 


SC_IN 

:RHCS1_ HAS AN OPEN BETWEEN IT AND THE BUS 
:SET UP TO TEST AGAIN 
+ BIT WAS SET BY 5 ee ATTN OR 

FIND WHAT ERROR BIT IS SET 
'MCPE ERROR OR SC IS SHORTED TO +5 VOLTS 
;SETUP TO TEST AGAIN 
STRE WAS SET BY OTHER THAN WCE 
:FIND ERROR BIT THAT SET TRE 
;SETUP TO TEST AGAIN 


SEQ 0063 
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017250 


017254 


0 
017410 
017416 


017510 


07=JUN-79 


017737 
042737 


017737 


017737 


13:4 


041400 
001163 


000100 
040000 


006572 
050210 


000007 
177774 


000000 


000200 
003446 


003446 
000200 


003446 


163722 
027777 


163706 


163702 
163676 


63634 
163630 


164054 
164040 


164054 


003422 
163762 


163740 


001162 
001162 


003420 
003444 
003414 


003416 


003436 


MACY11 30A(1052) 
T21 WCE,TRE, 


7$: 
8$: 


9$: 


M 
12=JUL= 7 
SC BIT TES 


13 
oe 


SERFLG 

9$ 
#TREB,@RHCS1B 
on 


50 
k7,CLEER 
R7,ERRTST 


5 
10:46 PAGE 


04177570 


65 


TRE HAS AN OPEN GOING TC THE BUS 


ZANY LOOPING BEEING DONE 


7YES,LOAD TRE NO MATTER WHAT 


[WAS THERE AN ERROR 


tet TRE CHECK 
LOAD TRE 

7DID ERROR CLEAR 
YES EXIT TEST 


[LOADING TRE DID NOT CLEAR ERROR 


7SEE IF ERRORS ARE CLEARED 


IIIS SOROS IIIA AAAI IIIS III SII AIAN IAAI AAI IIISIIII SA ACA AAA AM 
MDPE ,TRE AND SC BIT TEST 

;*THIS TEST CHECKS THAT MDPE CAN BE SET IN 

:*RHCS2,AND THAT MDPE SETS TRE AND SC 

3*IN THE RHCS1 REGISTER 


CO KK KKK KEKE KKK KR KKREEKEERKKKERERERKKRKEK H 


SET UNIT # 

SET UP WORD COUNT 
71S IT AN RH70 
:NO_ITS AN RH11 
SET UP BAE REGISTER 
SET UP _BUS ADDRESS 
:TELL IT TO READ 
INVERT PARITY 
SAVE CONTENTS 
:CLEAR BIT COUNTER 
:1S_RDY SET 

:BIT is SET 


:COUNT UP 

NOT FINISHED COUNTING 
:GET READY TO DO IT AGAIN 
si3 It SEV VET? 


TRTEST 22 


TST22: 


BR 
UPE TRE : 
MO 


#7 ,ARHCS2 
sata 


9$ 

#ZERO, ARHBAE 
ARBUF , RHBA 
#READO,@RHCS1 
#PAT!7,@RHCS2 
teri el 


BITCNT 
ARDY ,ARHCS1 
UPE TRE 
BITCNT 

18$ 

BITCNT 

ARDY ,ARHCS1 
UPE TRE 
BITCNT 

UPE TRE 

19$ 


@RHCS1,$R 


; COUNT UP 
;BIT IS NOT GOING TO SET 


SET UP NEEDED AE. ONLY 


REGO 
eis ae 


@RHCS1,CS1 
@RHWC , WC 


EGO 
AR BITS NOT NEEDED 
HCS1 


; CONTINUE 

;SAVE BUS ADDRESS EXTENSION 
sSAVE RHCS3 

sSAVE CS2 

sSAVE TESTER STATUS 
;SAVE ERROR REGISTER 
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017516 Aaa 1oaeee 003442 @RHTDB, TDR sSAVE TESTER DATA REG. 


003440 MOV @RHMR2 , TC SAVE MR2 TESTER REG 
163570 ; 


163562 
001162 ASC! TRE, $REGO 
001162 ATRE ,SREGO 
001162 ASC, $REGO 

4$ 

116 

BR 8$ 

001162 : ASC! TRE, $REGO 3 

2e$ :FIND THE ERROR 
004124 $CS1,$CS1 ;TEST FOR SHORTS 


WMXF ‘PGE !NEM!NED ! UPE ! WCE !DLT, $¢S2 
#uCELO!WCEHI | ‘DPELO! DPEHI ‘APE. $CS3 


004122 peut ase ITS FOR SHORTS 
R7 ,WHYFO : TEST FOR SHORTS 

WE HAVE ‘gh FOR SHORTS 

8$ ;LEAVE THE TEST 

001162 : 4 at attr : THEN IS THE TRE BIT SET 


:SC BIT DID NOT SEE TRE BIT 
001162 #SC,$REGO ais THE SC BIT SET 
7$ HAS AN OPEN GOING TO BUS 
6 ‘TRE SET LOGIC NOT WORKING 
8$ :SET UP TO TEST AGAIN 
: 120 :MPE HAS OPEN IN LINE GOING TO BUS 
007224 R7 ,WHYFO SEE IF ANY Mey ERROR BIT IS 
SET OTHER T MPE 
8$ SET UP TO Test AGAIN 
: 121 ; SOMTHING WRONG WITH TRE BIT 
007224 R7,WHYFO 


017732 


017736 
017740 
017742 


gst: 
BSE 


> 
Se 
nN 
WN 


; SC_IN 
SRHCS1 HAS AN OPEN BETWEEN IT AND THE BUS 
BR 8$ :SET UP TO TEST AGAIN 
017750 4$: 11 iS¢ BIT WAS SET BY EITHER ATTN OR 
017752 007224 R7 ,WHYFC FIND WHAT ERROR BIT [S SET 
;MCPE ERROR OR SC IS SHORTED TO +5 VOLTS 
017756 0004 BR 8$ :SETUP TO TEST AGAIN 
6$: 122 TRE WAS SET 8Y OTHER THAN IPE 
007224 R7,WHYFO FIND ERROR BIT THAT SET TRE 
8$ ;SETUP TO TEST AGAIN 
7$: 13 : TRE HAS AN OPEN Moe TO THE BUS 
041400 177570 8$: #SW14!SwW9!SW8,a417757C0 ANY LOOPING BEEING DONE 
21 7YES,LOAD TRE NO MATTER WHAT 
001103 als [WAS THERE AN ERROR 


BN 2 SKIP Ln CHE CK 
000100 : #TREB,a@RHCS1B ;LOAD TRE 
000400 BI AMPE ,aRHCS2 DID ERROR CLEAR 


017746 


RBS 
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CZRHBE .P11 O7=JUN=79 13:44 T22 MDPE ,TRE AND SC BIT TEST 


¥ 
3 


YES EXIT TEST 

sLOADING TRE DID NOT CLEAR ERROR 
006572 : . SEE IF ERRORS ARE CLEARED 
050210 R7,ERRTST 


EEEKE 


NA es es os 


ZI UO IO ISISISISIOISIDISISIOIOISISIDIDIDIUISINIOIIOIUIOIIIUIUIOIOIIDIDIOISIIIDIUIUIUIDITIIOIIOISIDIUINI IE 
Z*TEST 23 UPE,TRE,SC ERROR TEST (RH11) 

:*THIS TEST CHECKS THE UPE BIT IN RHCS2 

:*TO SEE IF IT SETS AND WHEN IT SETS IS 

;*TRE AND SC BITS SET IN RHCS 


PE TITISTISIT TET T CTE TICTECTTITTTTC CTT TOTTTTTT TTT TTT TT TTT Tee 


000004 1$123: SCOPE 
012777 000007 163270 #7 .ARHCS2 
FITIT 


J FIT 
163252 : AUPE !7 ,ARHCS2 
20066 001162 M @RHCS1, $REGO ;SET UP NE 
020074 042737 027777 001162 #GO! IE!RDY!A16!A17!PSEL !DVA!MCPE !READ6, $REGO 
; ;CLEAR BITS NOT NEEDED 
020102 017737 163222 003420 @RHCS1,CS1 ;SAVE RHCS1 
163216 003444 . SAVE WORD COUNT 
163212 003414 HBA ,BA ‘Te ty ha BUS oe ata 


:NO 4 S A 70 


mn 
SW O OOMNOAUNE WhO 


rrr 


020524 


SSS 
WH -ODONAW 


003416 


34 
34 
34 
34 
% 
%4 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 
34 


QEAE 


INUE 
003416 ; ;SAVE BUS ADDRESS EXTENSION 
: RHCS3 


CS2 
; TESTER STATUS 
@RHER ERI ; ERROR REGISTER 
@RHTDB, TDR : TESTER DATA REG. 
@RHMR2 , TC SAVE MR2 TESTER REG. 
000200 163104 ARDY ,ARHCS1 SIS READY SET 
99$ SYES CONTINUE TEST 
| 102 :READY NOT SET 
007224 S R7 ,WHYFO ANY ERRORS SET 
020000 163076 : AUPE , ARHCS2 SIS UPE SET 
1$ YES CHECK TRE AND SC 
140000 001162 ASC! TRE, $REGO :1S_THE SC AND TRE BITS SET 
:YES UPE IS_IN ERROR 
040000 001162 ats :1S JUST THE TRE BIT SET 


:TRE BIT MUST BE IN ERROR 
100000 001162 at ne 


20 
8$ ‘SET UP TO TEST AGAIN 
140000 001162 1$: ASC! TRE, $REGO ‘IS SC AND TRE ae! 
22$ ‘FIND THE ERRO 
004124 004124 $(S1,$(S1 TEST FOR SHORTS 
AMPE | {MXP {PGE !NEM!NED!WCE!DLT. $csd 
$(S3,$(S3 
020332 013737 004132 004132 $ST,$ST 
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CZRHBE .P11 O7=JUN-79 13:44 123 -TRE,SC ERROR TEST (RH11) 


013737 On le 004134 SER, $ER 
004122 #~1 ,BEF ORE TELL WHYFO Ae FOR SHORTS 
R7 ,WHYFO STEST FOR SHORTS 
BEF ORE WE HAVE CHECKED FOR SHORTS 
8$ SLEAVE THE TEST 
001162 : ATRE , SREGO ; THEN IS THE TRE BIT SET 
BN :SC BIT DID NOT SEE TRE BIT 
100000 001162 #SC,$REGO. :1S_THE SC BIT SET 
BN 7$ ;TRE HAS AN OPEN GOING TO BUS 
6 ;TRE SET LOGIC NOT WORKING 
8$ :SET UP TO TEST AGAIN 
: 21 ;UPE HAS OPEN IN LINE GOING TO 8US 
007224 S R7 ,WHYFO SEE IF ANY OTHER ERROR BIT IS 
7SET OTHER THAN UPE 
8$ SET UP TO TEST AGAIN 
: 23 :SOMTHING WRONG WITH TRE BIT 
007224 R7,WHYFO :SEE_IF AN ERROR BIT IS SET 
:OR BOTH UPE IN RHCS2 AND SC IN 
sRHCS1 HAS AN OPEN BETWEEN IT AND THE BUS 
8$ :SET UP TO TEST AGAIN 
: 11 SC BIT WAS SET BY EITHER ATTN OR 
007224 R7,WHYFO :FIND WHAT ERROR BIT IS SET 
sMCPE_ ERROR OR SC IS SHORTED TO +5 VOLTS 
8$ ;SETUP TO TEST AGAIN 
: 22 TRE WAS SET BY OTHER THAN UPE 
007224 R7,WHYFO FIND ERROR BIT THAT SET TRE 
8$ ;SETUP TO TEST AGAIN 
7$: 13 TRE HAS AN OPEN GOING TO THE BUS 
041400 177570 : IT #SW14!SW9!SW8,a4177570 ANY LOOPING BEEING DONE 
21$ Ate LOAD TRE NO MATTER WHAT 
001103 SERFLG WAS THERE AN ERROR 
9$ :SKIP TRE CHECK 
000700 162662 : ATREB,@RHCS1B LOAD TRE 
020C0C 162630 AUPE , ARHCS2 [DID ERROR CLEAR 
9$ YES EXIT TEST 
50 [LOADING TRE DID NOT CLEAR ERROR 
006572 9$: R7,CLEER ; 7SEE IF ERRORS ARE CLEARED 
020520 004737 050210 R7,ERRTST 


020524 FIT: 
22 LARS R RRR REESE RSE SES ESE SESE SS ESSEC SELES SSCS SSCS SSSoS SSCL. So 
TRTEST 24 UPE,TRE,SC ERROR TEST (RH70) 
:*THIS TEST CHECKS THE UPE BIT IN RHCS2 
:*T0 SEE IF IT SETS AND WHEN IT SETS IS 
:*TRE AND SC BITS SET IN RHCS1 
bd JIGS USES IO SSIS IIS UIOIIIUIUOUOIOIOUUOD IR Eni t tnt kntn 


020524 000004 T5724: SCOPE 
020526 012777 000007 MO #7 ,ARHCS2 
0205 R1 


PLACE. : 70 
021306 J EXIT TEST 
000004 : HIPCKS, @RHCS3 =SETUP FOR PARITY ERROR 
177776 M #2, ARHWC : SETUP WORD COUNT TO TWO WORDS 
000000 #7ERO,@RHBAE § :SETUP BAE 
012777. 001162 #$REGO,aRHBA SETUP: ADDRESS 





MASSBUS RH70 AND RH11 6? es 
CZRHBE . 79 13:4 


P11 


020574 


07=JUN= 
012777 


017737 
042737 


017737 


000137 


000061 
003446 
000200 
003446 


003446 
000200 


003446 


162454 
027777 


162440 


162434 
162430 


003416 


000200 
020000 
140000 
040000 
100000 


140000 
004124 


021240 


162526 
162514 


162472 


001162 
001162 


003420 — 


003444 
003414 


003416 


162314 
001162 
001162 
001162 


001162 
004124 


004122 


MATY11 30A(1952) 


T24 


18$: 


19$: 


DYNO: 


87$: 
86$: 


99$: 


D 
12=JUL=79 


UPE,TRE,SC ERROR TEST (RH70) 


AWRITEO,@RHCS1 
BITCNT 
#RDY , @RHCS1 
DYNO 

BITCNT 

18$ 

BITCNT 

ARDY ,ARHCS1 
DYN 


@RHCS1,$REGO 
AGO! IE!RDY!A16!A17!PSEL! 


@RHCS1,CS1 
@RHWC , WC 
HBA ,BA 


@RHTDB, TDR 
@RHMR2 , TC 
#RDY , @RHCS1 
99$ 
102 
R7 ,WHYFO 

oy tae 
ASC! TRE, $REGO 
ATRE , $REGO 

3$ 

#SC,$REGO 

4$ 

20 

8$ ' 
ASC! TRE, $REGO 
22$ 


$CS1,$CS1 
WMPE 'MXF ! PGE !NEM!NED! WCE! 


6 
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;TELL IT TO WRITE 


:CLEAR BIT COUNTER 
:IS_RDY SET 

:BIT ‘s SET 

; COUNT UP 


“NOT FINISHED COUNTING 
‘GET READY TO DO IT AGAIN 
1S IT SET YET? 

= COUNT UP 

“BIT is NOT GOING TO SET 


;SET UP NEEDED BITS ONLY 
DVA!MCPE !READ6, $REGO 
;CLEAR BITS NOT NEEDED 
:SAVE RHCS1 

SAVE WORD COUNT 

+ Og ae BUS ot 


:NO_IT' < a 40. 
sCLEAR BAE 

SCLEAR CS3 
ONT 


INUE 
sSAVE BUS ADDRESS EXTENSION 
; RHCS3 


: CS2 
SSAVE TESTER STATUS 
TSAVE ERROR REGISTER 
SSAVE TESTER DATA REG. 
ZSAVE MR2 TESTER REG. 

“IS READY SET 

iYES CONTINUE TEST 

“READY NOT SET 

SANY ERRORS SET 

[1S UPE SET 

SYES CHECK TRE AND SC 
TIS THE SC AND TRE pits SET 
[YES UPE IS IN ERR 

‘IS JUST THE TRE arr SET 
:TRE BIT MUST BE IN ERROR 
[IS JUST THE SC BIT SET 
SSC BIT SET ERRONIOUSLY 
SUPE NOT SET IN RHCS2 
‘SET UP TO TEST AGAIN 
*1S SC AND TRE SET 

‘FIND THE TERROR 

EST FOR SHORTS 

DLT, scsi" 


#APE 'DPELO!WCEHI ‘WCELO! 1E3,$CS3 


$ST,$ST 


: TELL WHYFO its FOR SHORTS 
: TEST FOR SHORTS 

* WE HAVE CHECKED FOR _4ORTS 
SLEAVE THE TEST 


SEQ 0068 


E 6 
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CZRHBE .P11 *O?=JUN-79 13:4 T24 UPE,TRE,SC ERROR TEST (RH70) SEQ 0069 

3577 021152 032737 040000 001162 22$: BIT ATRE ,$REGO THEN iS THE TRE BIT SET 

3578 021160 001022 &NE 6 :SC BIT DID NOT SEE TRE BIT 

3579 021162 032737 100000 901162 BIT ASC, $REGO 71S _TKE SC SIT SET 

3580 021170 001022 BNE 7$ : TRE HAS AN OPEN GOING TO BUS 

3581 021172 104006 ERROR 6 TRE SET LOGIC NOT WORKING 

3582 021174 000421 BR 8$ :SET UP TO TEST AGAIN 

3583 021176 104021 . 2$: ERROR 21 SUPE HAS OPEN IN LINE GOING TO BuS 

3584 021200 004737 007224 JSR R7 ,WHYFO SEE IF ANY OTHER ERROR BIT IS 

3585 ;SET OTHER THAN UPE 

3586 021204 000415 BR e$ :SET UP TO TEST AGAIN 

3537 021206 104023 3$: ERROR 23 [SOMTHING WRONG WITH TRE BiT 

3588 021210 004737 007224 JSR R7 ,WHYFO SFE IF AN ERROR BIT iS eT 

3589 f [OR BOTH UPE IN RHCS2 AND SC _IN 

3590 ;RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS 

3591 021214 000411 BR 8$ :SET UP TO TEST AGAIN 

3592 021216 104011 4$: ERROR 11 :SC BIT WAS SET BY EITHER ATIN OR 

3593 021220 004737 007224 JSR R7,WHYFO FIND WHAT ERROR BIT IS SET 

3594 SMCPE ERROR OR SC IS SHORTED TO +5 VOLTS 

3595 021224 000405 BR 8$ :SETUP TO TEST AGAIN 

3596 021226 104022 6$: ERROR 22 TRE WAS SET BY OTHER THAN UPE 

3597 021230 004737 007224 JSR R7 ,WHYFO [FIND ERROR BiT THAT SET TRE 

3598 021234 000401 BR 8$ 4 A TO TEST AGAIN 

3599 021236 104013 7$: ERROR 13 TRE HAS AN OPEN ae TO THE BUS 
021240 032737 041400 177570 8$: BIT ASW14 ! SW9! SW8,a4177570 “ANY LOOPING BEEING DONE 

3601 021246 001003 BNE 21$ :YES,LOAD TRE NO MATTER WHAT 

3602 021250 105737 001103 TSTB SERFLG [WAS THERE AN ERROR 

3603 021254 001010 BNE 9$ SKIP TRE CHECK 

3604 021256 112777 000100 162100 218: MOVB #TREB,@RHCS1B SLOAD TRE 

3605 021264 032777 020000 162046 BIT AUPE , dRHCS2 :DID ERRUR CLEAR 

3606 021272 001401 BEQ 9$ . VES EXIT VEST 

3607 021274 104050 ERROR 50 [LOADING TRE DID NOT CLEAR ERROR 

3608 021275 004737 006572 9$: JSR R7,CLEER ;SEE IF ERRORS ARE CLEARED 

ged 021302 004737 050210 JSR | R7,ERRTST . 

13 021306 FANGIE: 

i 

3613 FI I I III III II KIT III TT ERE it 

3614 SRTEST 25 NED BIT TEST 

3615 > :*THIS TEST WILL CHECK THAT “rh (NON~EXISTANT DRIVE) 

3616 FOTETS THE WO SC BITS FY WS ssc civevisvecscnescses 

3617 +2 RRERERREREREEREREREERERERERERRERRRRERRERRRR RRR ER RARER RR 

16 021306 000004 TST25: SCOPE | 

3620 021310 012777 000000 162022 . MOV AZERO,@RHCS2 SETUP NED s 

3621 021316 005701 TST R1 RH11 OR RH70 

3622 021320 100403 BMI _ NEDERR i1T'S AN RH11 

3623 021322 012777 000000 162030 MOV #ZERO, @RHBAE >SETUP BA EXTENSION 

3624 021330 012777 177777 161774 NEDERR: MOV #-1 , aRHWC FOR 1 WORD TRANSFER 

3625 021336 012777 001172 161770 MOV #SREG4, ARHBA [SETUP BA 

3626 021344 912777 000061 161756 MOV #wRITEO,@RHCS1 ;TELL IT TO WRITE 

3627 021352 005037 003446 CLR BITCNT :CLEAR BIT COUNTER 

3628 021356 032777 000200 161744 18$: BIT ARDY ,ARHCS1 IS _RDY SET 

29 021364 001015 BNF BAKER :BIT IS SET 
3630 021366 005237 003446 IN BITCNT COUNT UP 
3631 021372 001371 BNE 18$ NOT FINISHED COUNTING 


3632 021374 005037 003446 CLR BITCNT GET READY TO DO IT AGAIN 








MASSBUS _RH70 AND RH11_DIAGNOSTIC 


CZRHBE .P11 


3633 
34 


021746 


O7=JUN=79 13:44 


032777 
4, 


017737 
042737 


017737 


104025 


000200 
903446 


161704 
027777 


161670 


161664 
161660 


140000 
040000 
100009 


140000 
000000 


040000 
100000 


161722 


007162 
001162 


003420 


003444 
003414 


003416 


161552 


161544 
001162 
001162 
001162 


001162 
004124 


004122 


001162 
001162 


MACY11 ye 
T25 


19$: 


BAKER: 


87$: 
86$: 


99$: 


2$: 


NED 6 


F 
we eet 


ARDY ,ARHCS1 
BA 


@RHCS1,$REGO 


6 

10:46 PAGE 71 
:IS_IT S&T YET? 
7 YES 


;COUNT UP 
;BIT IS NOT GOING TO SET 


sse7 uP NEEDED BITS ONLY 


#60! JE!RDY:A1G!A)7!PSEL !DVAMCPE : READS. , SREGO 


@RHCS1,CSi 


@RHBAE , BAE 
@RHCS3,CS3 
@RHCS2,CS2 
@RHST ,DS1 
@RHER ,ER1 
@RHTDB, TDR 
@RHMR2 , TC 
ARDY ,@RHCS1 
99% 


102 
R7 ,WHYFO 
Web ANC Se 


= ee 


sere 
#SC,$REGO 
4$ 

24 


8$ 
ASC! TRE, $REGO 
22$ 


AZERU,$ 


CsI 
WMPE !MXF ! PGE !NEM! URE !WCE! DLT $C sb 
# APE :DPEHI !DPELO!WCEHI ! 'wWCELO'IE3,$CS3 


8$ 
gine ,SREGD 
4SC , $REGO 
7$ 
6 
8$ 
25 


CLEAR BITS NOT NEEDED 

7SAVE RHCS1 

;SAVE WORD COUNT 

SAVE BUS ADDRESS 

71S IT AN RH11 

sNO_ IT'S A 70 

;CLEAR BAE 

CLEAR CS3 

; CONT INUE 

eee | BUS ADDRESS EXTENSION 
AVE RHCS3 


‘SAVE CS2 

:SAVE TESTER STATUS 
SAVE ERROR REGISTER 
SAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 
:IS READY SET 

:YES CONTINUE TEST 
READY NOT SET 

ANY ERRORS SET 

SIS NED SET 

:YES CHECK TRE AND SC 
71S THE SC AND TRE BITS SET 
:YES NED IS IN ERROR 

SIS JUST THE TRE BIT SET 
:TRE BIT MUST BE IN ERROR 
:IS JUST THE SC BIT SET 
:SC BIT SET ERRONJOUSLY 
NED NOT SET IN RHCS2 
:SET UP TO TEST AGAIN 
:IS SC_AND TRE SET 

;FIND THE ERROR 
TEST FOR SHORTS 


:TELL WHYFO ITS FOR SHORTS 
TEST FOR SHORTS 

WE HAVE ‘eh x FOR SHORTS 
LEAVE THE T 

THEN IS THE. TRE BIT SET 
:SC BIT DID NOT SEE TRE 8iT 
:1S_THE SC BIT SET 

STRE HAS AN OPEN GOING Mi 


GA 
:NED HAS OPEN IN LINE GOING TO 8US 


SEQ 0070 


cae am i AND RH11 DIAGNOSTIC 
CZRHBE .P 791 13:4 


021750 


021754 
021758 
021760 


021770 
021774 


022052 


022056 


022172 


07=JUN= 
604737 
000415 


104026 
004737 


004737 


000004 
012777 


0069770 


017737 
042737 


007224 


007224 


007224 


007224 


041400 
001103 
000100 
010000 


006572 
050210 


000027 


000200 
003446 


003446 
000200 


003446 | 


161140 9011 


027777 001 


177570 


161330 
161276 


161200 


161156 


62 
162 


¥11 30A(1052) 


G 
12=JUL=79 


NED BIT TEST 


R7 ,WHYFO 
8$ 
26 
R7,WHYFO 
8$ 
11 
R7,WHYFO 


8$ 
27 
R7,WHYFO 
8$ 


13 
tana atte datas 


$SERFLG 

o$ 

#TREB, @RHCS1B 
HNED ,RHCS2 


50 
Rr ,CLEER 
R7,ERRTST 


6 
10:46 


PAGE 72 


SEE IF ANY fae ont — BIT IS 


;OR BOTH NED IN RHCS2 AND SC IN 

;RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS 
:SET UF TO TEST AGAIN 

7SC BIT WAS SET. BY EITHER ATTN OR 

:FIND WHAT ERROR BIT IS SET 

:MCPE ERROR OR SC IS SHORTED "0 +5 VOLTS 
;SETUP.TO TEST AGAIN 

TRE WAS SET BY OTHER THAN NED 

:FIND ERROR BIT THAT SET TRE 

;SETUP TO TEST AGAIN 

TRE HAS AN OPEN GOING TO THE BUS 

ZANY LOOPING BEEING DONE 
:YES,LOAD TRE NO MATTER WHAT 
WAS THERE AN ERROR 

:SKIP TRE CHECK 

;LOAD TRE 

:DID ERROR CLEAR 

YES EXIT TEST 

sLOADING TRE DD NOT CLEAR ERROR 
SEE IF ERRORS ARE CLEARED 


° OI TR TR RRR RRR EKER EERE RHEE ERR 


T*TEST 26 


T$T26: 


18$: 


MXF ,TRE AND SC BIT TEST 
7*THIS TEST WILL CHECK THAT MXF 
:* (MISSED TRANSFER — WILL 


:*SET TRE AND SC BITS 


bd DSO USI SISISIIOSISIISOSIIISOIUIIOE OC IDUISODIIIDUOUIIUDINOEI NDE Ines 


SCOPE 


B 
CHARLE: 


#PAT!7,@RHCS2 
#~1 , dRHWC 
#RBUF , ARHBA 
A#ZERO,@RHTDB 
AWRITEO,@RHCS1 
BITCNT 

ARDY ,ARHCS1 
CHARLE 


aad OF es $7 
ARI. 

BITONT 

CHARLE 

19$ 


@RH(S1, $REGO 


sSET MXF BIT 

:SET UP WORD COUNT 

SETUP BA 

:SET MXF ERROR 
sTELL IT TO WRITE 
[CLEAR BIT COUNTER 
:IS_RDY SET 

BIT IS SET 


; COUNT UP 
SNOT FINISHED COUNTING 


:GET READY TO DO IT AGAIN 
sid. iT SEY VET? 


. 
ete 


: COUNT UP i 
BIT IS NCT GUING TO SET 


UP NEED 


3 SET 
#GO!TE'RDY!AI6é!A17!PSEL BVA! lan hit REA 


i CLEAR 


SEQ 0071 





MASSBUS R70 AND 
CZR 


HBE 


022514 


022520 
022522 
022524 


022530 
022532 


RH11 4g 
P11 “O7=JUN-79.1 


017737 


104032 
004737 


sal asl al 
ARO W 
ad ad ald 
a an aa 
NON 
for 


161024 
000200 


007224 
001000 
140000 
040000 


100000 


140000 
020000 


040000 
100000 


007224 


007224 


003420 
003444 
003414 


003416 


161006 


161000 
001162 
001162 
001162 


001162 
004124 


004122 


001162 
001162 


MACY11 30A(1052) 
126 oTRE AND SC BIT TEST 


87$: 
863: 


99$: 


22$: 


2$: 


3$: 


4$: 


MxF 


H 6 
12-JUL=79 10:46 


@RHCS1,CS1 
@RHWC WC 
HBA ,BA 


aRHCS2, CS2 
@RHST, $1 
@RHER.ER1 
@RHTDB, TDR 
@RHMR2, TC 
#RDY ,@RHCS1 
99$ 

102 

R7,WHYFO 

oe Se 
#SC! TRE, $REGO 
2$ 

a. , SREGO 
oe. » SREGO 

30 

&$ 

#SC! TRE, $REGO 
223 


AMCPE ,$ 


CS 
am BGE INEM ne: !UPE!WCE!DLT, $csd 


$CS3,$ 
$ST,$ST 


PAGE 73 


3 SAVE RHCS1 
SAVE WORD COUNT 
sre te at 


SCLEAR (S3 

> CONT INUE 

SAVE BUS ADDRESS wees Gos: 
;SAVE RHCS3 


sSAVE CS2 

:SAVE TESTER STATUS 
SAVE ERROR REGISTER 
TSAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 
: IS READY SET 


S » 
SYES CHECK TRE AND SC 
ZIS THE SC AND TRE BITS SET 
SYES MXF IS IN ERROR 
iI JUST THE TRE BIT SET 
E BiT MUST BC IN ERROR 
SIS JUST THE SC BIT SET 
>SC BIT SET ERRONIOUSLY 
:MXF NOT SET IN RHCS2 
ZSETSUP TO TEST AGAIN 
:1S 3C AND TRE SET 
iF IND THE ERROR 
TEST, FOR SHORTS 


MILF RMR! DPE! RMBEX!RFAIL!DTE!OPI,$ER 


#-1 ,BEF ORE 
R7,WHYFO 
BEF ORE 

8$ 
A#TRE , SREGO 
6$ 
#SC,$REGO 
7$ 

6 

8$ 

31 
R7,WHYFO 
as 

32 
R7,WHYFO 
8s 


4 
i 


:TELL WHYFO ITS FOR SHORTS 

: TEST FOR SHORTS 

SWE HAVE CHECKED FOR SHORTS 

sLEAVE THE TEST 

; THEN IS THE TRE BIT SET 

:SC BIT DID NOT SEE TRE BIT 

4} THE SC BIT SET 

TRE HAS AN OPEN GOING TO BUS 

; SET LOGIC NOT WORKING 

UP TO TEST AGAIN 

HAS OPEN IN LINE GOING TO BUS 
IF ANY OTHER ERROR BIT IS 
OTHER THAN MXF 

UP TO TEST AGAIN 

: SOMTHING WRONG WITH TRE BIT 

:SEE IF AN ERROR BIT IS SET 

:CR BOTH MXF IN RHCS2 AND SC_IN 
[RHCS1 HAS AN OPEN BETWEEN IT AND THE SUS 
:SET UP TO TEST AGAIN 

75C BIT WAS SET BY EITHER ATIN OF 


SEQ 0072 


MASSBUS RH70 AND we eee 


CZRHBE .P11 


022534 
022540 


022616 


022622 


022742 
022750 


023026 


07=JUN=79 


004737 


004737 


000004 


017737 
042737 


017737 


017737 


13:44 
007224 


007224 


041400 
001103 


000100 
001000 


‘006572 


050210 


000007 
004000 


000000 


000200 
003446 


? 003446 
000200 


003446 


160370 
027777 


160354 
160350 
160344 


003416 


160306 


177570 


160564 
160532 


160506 
160474 


160506 
160450 
160442 


160430 


160406 


001162 
001162 


003420 
003444 
003414 


003416 
003424 
003422 


MACY11 30A(1052) 
726 .TRE AND SC BIT TES 


MXF 


I 
12=JUL=79 


6 
10: a PAGE 74 


JSR R7 ,WHYFO ;FIND WHAT ERROR BIT IS SET 
:MCPE ERROR OR SC IS SHORTED TO +5 VOLTS 
R 8$ :SETUP TO TEST AGAIN 
6$: ERROR 33 ;TRE WAS SET BY OTHER THAN MXF 
JSR R7,WHYFO [FIND ERROR BIT THAT SET TRE 
BR 8$ :SETUP TO TEST AGAIN 
7$: ERROR 13 | ; TRE HAS AN OPEN GOING TO THE @US 
8$: BIT #SW14!SW9!Sw8,a4177570 ANY LOOPING BEEING DONE 
BNE 21$ 7YES,LOAD TRE NO MATTER WHAT 
TSTB —s $ERFLG [WAS THERE AN ERROR 
BNE 9$ : SKIP TRE CHECK 
218:  MOVB #TREB,a@RHCS1B OAD TRE 
BIT #MXF , @RHCS2 DID ERROR CLEAR 
BEQ 9$ SYES EXIT TEST 
ERROR 50 [LOADING TRE DID NOT CLEAR ERROR 
9$: JSR R7,CLEER ZSEE IF ERRORS ARE CLEARED 
JSR R7ERRTST 
° IK KKK KEKE ERR REET KK ERK KKK 
S*TEST 27 PGE ERROR BIT TEST 


:*THIS TEST FORCES PGE TO SET IN RHCS2 
>*AND VERIFYS TRE AND SC IS SET IN RHCS1 


BD I I I I TTI KK TOT TOT TOTTI Rt 


TST27: 


SCOPE 


MOV #7 ,ARHCS2 ;SET UNIT NUMBER 
MOV ME VENAD , @RHBA ;SETUP BUS ADDRESS 
TST R1 1S IT AN 11 OR A 70 
BMI JUMP : ITS AN RH11 
MOV AZERO, @RHBAE ;SETUP BAE 
JUMP: MOV AWRITEO,@RHCS1 ;TELL IT TO WRITE 
MOV AWRITEO,@RHCS1 CREATE THE ERROR 
CLR BITCNT ;CLEAR BIT COUNTER 
18$: BIT ARDY, @RHCS1 ;IS RDY SET 
BNE PGETST :BIT IS SET 
INC BITCNT ; COUNT 
BNE 18$ =NOT FINISHED COUNTING 
CLR BITCNT :GET READY TO DO I7 AGAIN 
19$: BIT ARDY ,ARHCS1 SIS IT SET YET? 
BNE PGETST sYES 
INC BITCNT COUNT UP 
BEQ PGETST :BIT IS NOT GOING TO SET 
BR 19$ 
PGETST: 
MOV @RHCS1,$REGO ;SET UP NEEDED BITS ONLY 
BIC #GO!'TE'RDY!A16!A17!PSEL !DVA!MCPE !READ6, $REGO 
CLEAR BITS NoT NEEDED 
MOV @RHCS1,CS1 SSAVE RHCS1 
MOV @RHWC , WC ;SAVE WORD COUNT 
MOV aR J ; SAVE BUS ADDRESS 
TST R1 ~'S IT AN RH11 
BEQ 87$ ZNO IT'S A 70 
CLR BAE CLEAR BAE 
CLR CS3 :CLEAR CS3 
JMP 86$ >; CONTINUE 
873%: MOV @RHBAE , RAE + SAVE BUS ADDRESS EXTENSION 
MOV @RHCS3,0S53 ;SAVE RHCS3 
863: MOV @RHCS2,CS2 sSAVE CS2 


SEQ 0073 


J 6 
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017737 160302 003432 @RHST,DS1 ;SAVE TESTER STATUS 
‘ ;SAVE ERROR REGISTER 
;SAVE TESTER DATA REG. 
: HMR2, TC # SAVE MR2 TESTER REG. 
000200 160236 #RDY ,@RHCS1 D T 
99$ 
102 
007224 R7,WHYFO 
002000 160230 : are. ,@RHCS2 


, AND S 
140000 001162 ASC! TRE , $REGO He TRE BITS SET 


; ERROR 
040000 001162 ATRE , $REGO 71S JUST THE TRE BIT SET 
3$ TRE BIT MUST BE IN ERROR 
100000 001162 #SC,$REGO :I1S JUST THE SC BiT SET 
4$ :SC BIT SET ERRONIOUSLY 
51 :PGE NOT SET IN RHCS2 
8$ :SET UP TO TEST AGAIN 
140000 001162 1$: #SC! TRE, $REGO :1S SC AND TRE SET 
22$ 7F IND THE ERROR 
004124 004124 $CS1,$CS1 TEST FOR SHORTS 
#MPE 'MXF !NEM!NED!UPE 'WCE.DLT. $csd 
$CS3,$CS3 
$ST,$ST 
#ILF ! CPE! RMR! DPE ' RMBE X | RFAIL. DTE!OPI,$ER 
004122 4-1 ,BEFORE 
R7 ,WHYFO Fy 
BEF ORE SWE HAVE CHECKED FOR SHORTS 
8$ ;LEAVE THE TEST 
040000 001162 3 ATRE , SREGO THEN IS THE TRE BIT SET 
6$ :SC BIT DID NOT SEE TRE BIT 
100000 001162 #SC, $REGO :IS_THE SC BIT SET 
BN 7$ ;TRE HAS AN OPEN GOING TO BUS 
6 :TRE SET LOGIC NOT WORKING 
8$ :SET UP TO TEST AGAIN 
; 123 PGE HAS OPEN IN LINE GOING TO BUS 
007224 R7,WHYFO SEE IF ANY OTHER ERROR BIT IS 
SET OTHER THAN PGE 
023270 :SET UP TO TEST AGAIN 
022272 : 71 NG WRONG WITH TRE BIT 
023274 007224 ; 
[OR BOTH PGE 


SC_IN 
;RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS 
sie :SET UP TO TEST AGAIN 
4$: :SC BIT WAS SET BY EITHER ATTN OR 
007224 S R7 ,WHYFO FIND WHAT ERROR BIT IS SET 
[MCPE ERROR OR SC 1S SHORTED TO +5 VOLTS 
6b :SETUP TO TEST AGAIN 
6$: 172 [TRE WAS SET BY OTHER THAN PGE 
007224 R7, WHYFO FIND ERROR BIT THAT SET TRE 
gS ISETUP TO TEST AGAIN 
7$: 13 ;TRE HAS AN OPEN GOING TO THE BUS 
041400 177570 8$: #SwW14:Sw9!Sw8,a#177570 SANY LOOPING BEEING DONE 
21$ :YES,LOAD TRE NO MATTER WHAT 
001103 $ERFLG WAS THERE AN ERROR 
BN 9$ SKIP TRE CHECK 
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112777 000:00 160014 218: MOVB |#TREB, @RHCS1B ;LOAD TRE 
002000 157762 BIT APGE , @RHCS2 , #DID ERROR CLEAR 
BEQ ¥$ YES EXIT TEST 
; LOADING TRE DID NOT CLEAR ERROR 
$083" 6 : . SEE IF ERRORS ARE CLEARED 


MXF,TRE AND SC BIT TEST (RH11 ONLY) 
;*THIS TEST SEES IF MXF CAN BE SET BY A MOVE 
:*INSTRUCTION AND THAT TRE AND SC ARE SET IN 
>*RHCS1.MXF CAN BE SET THIS WAY IN AN RH11 BUT CN 
:*NOT BE SET THIS WAY IN AN RH70 
FLERE ERE RRR EERE ERE REE ERE ERK EEE REE EK 
023372 TST30: 
:IS IT A 70 OR 11 
Z1T'S AN RH11 DO THE TEST 
024124 J :RH70,EXIT TEST 
157726 LEAP: [SETUP UNIT 7 
157720 TSET MXF 
CLEAR BIT COUNTER 
157706 188: SMXF SET 


MIXIT ‘BIT ts SET 
003446 COUNT UP 
18$ SNOT FINISHED COUNTING 
003446 :GET READY TO dO IT AGAIN 
001000 157664 : , siS IF S&T VET 
XIT YES 


003446 COUNT UP 
:BIT IS NOT GOING TO SET 


017737 157636 001162 MO @RHCS1, $REGO ;SET UP NEEDED BITS ONLY 
042737 027777 001162 #GO!TE!RDY!A16!A17!PSEL !DVA'MCPE !READ6, $REGO 
;CLEAR BITS NOT NEEDED 
017737 157622 003420 @RHCS1,CS1 : SAVE RHCS1 
157616 003444 r SAVE WORD COUNT 
157612 003414 MO < te BA 7 SAVE BUS ADDRESS 


003416 


7 CONTINUE 

003416 : aRHBA sSAVE BUS ADDRESS EXTENSION 
:SAVE RHCS3 
SAVE CS2 
sSAVE TESTER STATUS 
;SAVE ERROR REGISTER 
sSAVE TESTER DATA REG. 

22, 7C + SAVE MR2 TESTER REG. 
157504 :1S READY SET 
99$ ‘ ‘YES CONTINUE TES] 


001000 157476 : #MXF , ARHCS2 SE 
001016 1$ ‘YES CHECK TRE AND S 
022737 140000 001762 #SC! TRE ;SREGO p18 THE SC AND TRE BITS SET 





MASSBUS RH70 AND 
CZRHBE «P11 


024016 
024022 


024024 
024026 


024032 


RH11 Ae we ele 
*O7=JUN-7 9 


001460 


000415 
104032 
004737 


000411 


13:4 
040000 
100000 


140000 
004124 


100000 


007224 


007224 


007224 


007224 


041400 
001103 
000100 
001000 


006572 
050210 


001162 
001162 


001162 - 


004124 


004122 


001162 
001162 


177570 


L 
oh 30A(1052)  12=JUL=79 


6 
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MXF,TRE AND SC BIT TEST (RH11 ONLY) 


2$ 
——- 
ASC, $REGO 
4$ 

30 

8$ 

#SC: TRE, $REGO 
22$ 

$CS1 

$CS3 

$ST, 

$ER.$SER 
#-1,BEFORE 
R7 ,WHYFO 
BEF ORE 

8$ 
ATRE , SREGO 
6$ 

ASC, $REGO 
7$ 


6 
8$ 


31 
R7 ,WHYFO 
8$ 
32 
R7,WHYFO 
8$ 
11 
R7 ,WHYFO 
8$ 
33 
R7 ,WHYFO 
8$ 


13 
et et areas 
SERFLG . 
9$ 


#TREB,@RHCS1B 
HMXF , ARHCS2 


50 
9$: R7,CLEER 
R7,ERRTST 


.$CS $1 
, MMPE PGE !NEM!NED!UPE !WCE ‘DLT. $C(S2 


YES MXF IS_IN ERROR 


‘IS JUST THE SC BIT SET 
SC BIT SET ERRONIOUSL Y 


SFIND THE ERROR 


TEST FOR SHORTS 


:TELL WHYFO 11S FOR SHORTS 


TEST FOR SHORT 

WE HAVE CHECKED FOR SHORTS 
;LEAVE THE TEST 

: THEN IS THE TRE BIT SET 


SET 
TRE HAS AN OPEN GOING TO BUS 
TRE SET LOGIC NOT WORKING 

:SET UP TO TEST AGAIN 

:MXF HAS OPEN IN LiNE GOING TO BUS 
SEE IF ANY west te — BIT IS 
7SET OTHER T 

SET UP TO TEST AGAIN 


;SOMTHING WRONG WITH TRE BIT 

;SEE IF AN ERROR BIT IS SET 

;O0R BOTH MXF IN RHCS2 AND SC IN 

:RHCS1 HAS AN OPEN BETWEEN IT AND THE BUS 
:SET UP TO TEST AGAIN 

:SC BIT WAS SET BY EITHER ATTN OR 


FIND WHAT ERROR BIi IS SET 
;MCPE ERROR OR SC IS SHORTED TO +5 VOLTS 
;SETUP TO TEST AGAIN 
TRE WAS SET BY OTHER THAN MXF 
SFIND ERROR BIT THAT SET TRE 
4 Ae TO TEST AGAIN 

TRE HAS AN OPEN GOING TO THE BUS 
TANY LOOPING BEEING DONE 
:YES,LOAD TRE NO MATTER WHAT 
WAS THERE AN ERROR 
:SKIP TRe CHECK 
LOAD TRE 
:DID ERROR cL EAR 
YES EXIT TEST 
[LOADING TRE DID NOT CLEAR ERROR 
SEE IF ERRORS ARE CLEARED 


SEQ 0076 





024124 FROG: 


DODO II IOIIIIUIOUIIIIOUIUIOIIOUUOR EDI Eth t tintin 
S*TEST 31 MCPE AND SC ERROR TET 
:*THIS TEST CHECKS THAT MCPE CAN BE SET IN RHCS1 
+ *AND THAT MCPE SETS SC IN RHCS1 
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024124 


024452 
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003446 


003446 
000200 


003446 


007224 
020000 


100000 


024446 


007224 
006572 
050210 


157116 


003420 
003444 
003414 


003416 


156762 


156744 
156734 
004124 


004126 
004122 


MACY11 30A(1052) 


131 


ST31: 


18$: 


19$: 


MCPET: 


87$: 
86$: 


MPETST: 


22$: 


1$: 
ERR30: 


M 
12=JUL= 4 A 


MCPE AND SC ERROR T 


~~ 


#7 ,ARHCS2 
#ICPA,@RHMR1 
$REGO,@RH7TDB 
$REGO, we 
BITCNT 

#RDY ,ARHCS1 
MCPET 

BITCNT 

18$ 

BITCNT 

AHRDY ,ARHCS1 
MCPET 

BITCNT 


MCPET 
19$ 


@RHCS1,CS1 
@RHWC , WC 
HBA ,BA 


@RHTDB, TDR 
@RHMR2 , TC 
#RDY ,ARHCS1 
MPETST 

102 


R7 ,WHYFO 
re ree 


ASC ,@RHCS1 
22$ 
ATRE S$ 


6 
~~ 46 PAGE 78 


edes Meee ass. ae eR mat pia TT eee a Tee tt 


SETUP UNIT NO. 

: INVERT CONTROL PARITY 

; TRANSFER INFO TO td 
:D0 IT FOR SECOND TIME 
;CLEAR BIT COUNTER 

71S RDY SET 

:BIT - SET 


COUNT UP 
:NOT FINISHED COUNTING 
:GET READY TO * IT AGAIN 
4° A SET YET? 


COUNT UP 
:BIT IS NOT GOING TO SET 


:SAVE RHCS1 
SAVE WORD COUNT 
; SAVE an ae 


NUE 
SAVE BUS ADDRESS EXTENSION 
RHCS3 


; CS2 

SAVE TESTER STATUS 
SAVE ERROR REGISTER 
SAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 


sRE 
ANY ERRORS SET 
:1S MCPE SET 


iS SC SET 
:SC_NOT SET 
READY TO TEST FOR SHORTS 


CS1 ;GET 
#MPE iMXF !PGE !NEM! NED! UPE iWCE!DLT,$CS2 


#~-1 ,BEF ORE 


R7ERRTST 


SEE IF ANY SHORTS 


;GET OUT OF TEST 
:MCPE ERROR OK BUT SC DID 


;GATE FOR SC WAS NOT SEEN 


:MCPE DID NOT SET 

WAS THERE ANOTHER ERROR 
CLEAR ERRORS 

[WAS THERE AN ERROR 


SEQ 0077 


N 6 
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CZRHBE .P11 O7=JUN-79 13:4 131 MCPE AND SC ERROR TET SEQ 0078 
4081 
4082 FERRARA EERE EEE REE REE EEE RR E RRR RE REE EERE 
4083 tSTEST 32 DOUBLE TRANSFER TEST,1 WORD FROM AN ADDRESS BASE 4 
4084 z*THIS TEST CHECKS THAT A A ONE WORD TRANSFER 
4085 7*FROM AN ADDRESS ge 8 BY 4 WILL NOT SET 
4086 + *DBL IN RHCS3...... Re GL i vccdacsesenseus 
4087 POETIITITITICITTTITITTTITITITITTITELITITTTTTTTTTTTTITT LETT TTT Tee 
4088 024456 000004 TST32: SCOPE 
4089 024460 005701 TST R1 31S IN AN RH11 
4090 024462 100532 BMI TST33 Bi Bi ouT OF TEST 
4091 024464 012777 177777 156640 MOV #=-1 , ARHWC ;SET UP WC FOR ONE WORD 
4092 024472 012777 004000 1546634 MOV #EVENAD , @RHBA sSETUP BUS ADDRESS 
4093 024500 012777 000000 156652 MOV #ZERO, @RHBAE ;SETUP BUS ADDRESS EXTENSION 
4094 024506 012777 000007 156624 MOV #7 ,ARHCS2 :DEVICE 7 
4095 024514 012777 000061 156606 MOV AMWRITEO,@RHCS1 sTELL IT TO WRITEO 
4096 024522 005037 003446 CLR BITCNT 7 CLEAR BIT COUNTER 
4097 024526 032777 000200 156574 18$: BIT #RDY ,@RHCS1 sIS RDY SET 
4098 024534 001015 BNE 3$ :BIT IS SET 
4099 024536 005237 003446 INC BITCNT ;COUNT UP 
4160 024542 001371 BNE 18$ ‘NOT FINISHED COUNTING 
4101 024544 005037 003446 CLR BITCNT 3GET READY TO dO IT AGAIN 
4102 024550 032777 000200 156552 19$: BIT #RDY ,ARHCS1 :1S IT SET YET? 
4103 024556 001004 BNE $ 7 YES 
4104 024560 005237 003446 INC BITCNT ; COUNT UP 
4105 024564 001401 BEQ 3$ ;BIT IS NOT GOING TO SET 
4106 024566 000770 BR 19$ 
4107 024570 3$: 
4108 024570 017737 156534 003420 MOV @RHCS1,(5S1 7 SAVE RHCS1 
4109 024576 017737 156530 003444 MOV @RHWC , WC sSAVE WORD COUNT 
4110 024604 017737 156524 003414 MOV @RHBA ,BA ;SAVE BUS ADDRESS 
4111 024612 005701 TST R1 71S IT AN RH11 
4112 024614 0014 BEQ 87$ iNO IT'S A 70 
4113 024616 005037 903416 CLR BAE sCLEAR BAE 
4114 024622 005037 003424 CLR CS3 sCLEAR CS3 
4115 024626 000137 024646 JMP 86$ : CONT INUE 
4116 024632 017737 156522 003416 87$: MOV @RHBAE , BAE SAVE ae ADDRESS EXTENSION 
4117 024640 017737 156516 003424 MOV @RHOS3,CS3 SAV E RHCS3 
4118 024646 017737 156466 003422 86$: MOV @RHCS2,CS2 3 SAVE CS2 
4119 024654 017737 156462 003432 MOV @RHST,DS1 + SAVE TESTER STATUS 
4120 024662 017737 156456 003436 MOV @RHER,ER1 ;SAVE ERROR REGISTER 
4121 024670 017737 156454 003442 MOV @RHTDB,TDR 7 SAVE. TESTER DATA REG. 
4122 024676 017737 156434 003440 MOV @RHMR2 , TC ;SAVE MR2 TESTER REG. 
4123 024704 032777 000200 156416 BIT #RDY ,@RHCS1 71S READY SET 
4124 024712 1003 BNE 1$ zRDY SET CONT. TEST 
4125 024714 104102 ERROR 102 ;READY DID NOT SET 
4126 024716 004737 007224 JSR R7,WHYFO ANY ERRORS SET 
4127 024722 032777 %02000 156432 1$: BIT ADBL , BRHCS3 71S DOUBLE SET 
4128 024730 001403 BEQ 2$ DBL SET 
4129 024732 104125 ERROR 125 DBL yi = A ae A 1 WORD TRANSFER 
4130 024734 004737 007224 JSR R7,WHYFO ZTELL WH 
4131 024740 004737 006572 2$: JSR R7,CLEER >CLEAR W ERRORS 
4132 024744 004737 050210 JSR R7,ERRTST 
4133 SII IO IIIS IOI IIIT IO ont tink 
4134 S*TEST 33 DOUBLES TEST FOR TWO WORD BASE 4 ADDRESS 
4135 i*THIS TEST CHECKS THAT DOUBLE WILL SET FOR A 


4136 :*TWO WORD TRANSFER STARTING FROM AN ADDRESS 


6 7 
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3 DOUBLES TEST FOR TWO WORD BASE 4 ADDRESS 


:*DIVISABLE By 4 RH70 ONLY 


REE RRRREREERERRERRRRRRERERERERERREREERERRERRE REE R ERR EERE RED 


024750 000004 7133 


MASSBUS RH70 AND RH11_DIAGNOSTIC MA 
CZRHBE .P11 O7=JUN=79 13:44 13 


R1 31S _IT AN 11 OR A 70 
TST34 3GET OUT OF TEST 
177776 156346 #=2 , ARHWC ; SETUP WORD COUNT FOR DOUBLE TRANSFER 
004000 156342 MEVENAD , ARHBA ; CORRECT BA 
000061 156330 AWRITEO,@RHCS1 :TELL IT TO WRITE 
003446 BITCNT CLEAR A Bs COUNTER 
000200 156316 : #RDY ,ARHCS1 ;IS_RDY SET 
DBLWDS :BIT IS SET 


003446 BITCNT COUNT UP 
BN 18$ ;NOT FINISHED COUNTING 
003446 BITCNT :GET READY TO DO IT AG 'N 
000200 156274 : ARDY ,ARHCS1 :1S_IT SET YET? 
DBLWDS 7YES 
003446 BITCNT COUNT UP 
_— ;BIT IS NOT GOING TO SET 


B 
DBLWDS: 
156256 003420 M @RHCS1,CS1 SAVE RHCS1 
156252 003444 P SAVE WORD COUNT 
156246 003414 HBA ,BA : SAVE BUS ADDRESS 
T AN RH11 
“NO IT'S A 70 
003416 


INUE 
003416 : s BUS ADDRESS EXTENSION 
\ : RHCS3 


S2 
TESTER STATUS 
; ERROR REGISTER 
@RHTDB, TDR ; TESTER DATA REG. 
@RHMR2 , TC SAVE MR2 TESTER REG. 
000200 156140 #RDY ,@RHCS1 1S READY SET 
FOOEY :RDY IS SET 
102 :RDY DID NOT SET 
007224 JS R7 ,WHYFO sANY ERRORS SET 
002000 156154 FOOEY: ADBL ,@RHCS3 71S DOUBLE SET 
BN ERIR :DBL IS SET 
;DBL DID NOT SET IN RHCS3 
007224 J SANY OTHER ERROR SET 
006572 ERIR: ;CLEAR ERRORS 
025222 004737 050210 J R7.ERRTST 
JDO OIC OSI SIOISISIIISIIOISIOIIIIOIOIOISIIDIDIOIIIIOIIIOIIIIOI SIDI ISU ttt 
SRTEST 34 DOUBLE TEST ,3 WORD TRANSFER FROM A BASE 4 ADDRESS 
;*THIS TEST CHECKS THAT DBL WILL NOT SET 
>*IN RHCS3 AFTER A 3 WORD TRANSFER STARTING 
:*FROM AN Te ae BY 4 


° erteerectttititttttretterestrettsttrercceetteesteceeteeeeseeee 


025226 
R1 :1S_IT_AN 11 OR A 70 
TST35 ::GET OUT OF TEST 
012777 177775 156070 MOV #-3, aRHWC SET UP FOR A 3 WORD TRANSFER 





ee. 
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CZRHBE .P11 O7=JUN=79 13:44 134 DOUBLE TEST ,3 WORD TRANSFER FROM A BASE 4 ADDRESS 


pe 2see 012777 156064 MEVENAD , @RHBA CORRECT BA 
156052 AWRITEO,@RHCS1 sTELL IT TO WRITE 
BITCNT :CLEAR BIT COUNTER 
156040 : ARDY ,@RHCS1 :IS_RDY SET 
REE BIT IS SET 


003446 COUNT UP 
8$ :NOT FINISHED COUNTING 
003446 ITCNT :GET READY TO DO IT AGAIN 
000200 156016 : ARDY ,ARHCS1 SIS IT SET YET? 
THREE 7 YES 
003446 BITCNT : COUNT UP 
in :BIT IS NOT GOING TO SET 


003420 @RHCS1,CS1 SAVE RHCS1 

003444 HWC, SAVE WORD COUNT 

003414 HBA ,BA : SAVE BUS ADDRESS 
1 ; T AN RH11 


; CONT INUE 
003416 : HBAE , ; SAVE no ADDRESS EXTENSION 
;SAVE RHCS3 
@RHCS2,CS2 sSAVE CS2 
@RHST ,DS1  SSAVE TESTER STATUS 
@RHER,ER1 SAVE ERROR REGISTER 
@RHTDB, TDR SAVE TESTER DATA REG. 
@RHMR2 , TC SAVE MR2 TESTER REG. 
155662 #RDY ,@RHCS1 :IS READY SET 
RIP :RDY IS SET 
:RDY DID NOT SET 
007224 
002000 155676 ERRIP: 


DOUBLE SET ON A 3 WORD TRANSFER 
007224 J ;SEE IF ANY ERROR BITS ARE SET 
006572 ERPIP: CLEAR ERRORS 
025500 004737 050210 J R7,ERRTST 
CORI III II IIIS ISIC III IOI IIIT ITI TIT ITO TOIT OAS SAAS he 
TATEST 35 DOUBLE TEST ,4 WORDS FROM A BASE 4 ADDRESS 
:*THIS TEST CHECKS THAT DBL WILL SET IN RHCS3 
:*AFTER A 4 WORD TRANSFER STARTING WITH AN 
: ADDRESS OIViSLE oY CTT IOI TOT SOTTO tok 
RH70 ONLY 


: Ps OEE eh eh eth arte ot cn bk seh Eee en ae 


025504 0000 TST35: 
0255 IT AN 11 OR A 70 


Ri 233 
TST36 3:GET OUT OF TEST 
177774 155612 A-4 , ARHWC SET UP_FOR 4 WORD TRANSFER 
155606 #EVENAD , @RHBA :CORRECT BA 
155574 AWRITEO, @RHCS1 sTELL IT TO WRITE 
BITCNT CLEAR BIT COUNTER 
000200 155562 : ARDY ,aRHCS1 :1S_RDY SET 
DBLED sBIT IS SET 
025550 005237 003446 BITCNT COUNT UP 
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025554 


025756 


025762 


001371 


004737 


000004 


001371 


O7=JUN-79 13:44 


003446 
000200 
003446 


007224 
002000 


007224 
006572 
050210 


177777 


000200 
003446 


155540 


003420 
003444 
003414 


003416 


155404 


155420 


D7 


AGE 82 
WORDS FROM A BASE 4 ADDRESS 


NOT FINISHED COUNTING 
GET READY TO DO IT AGAIN 
At SET YET? 


COUNT UP 
BIT IS NOT GOING TO SET 


SAVE RHCS1 

SAVE WORD COUNT 
SAVE BUS ADDRESS 
: T AN RH11 


: CONTINUE 
SAVE BUS ADDRESS EXTENSION 
[SAVE RHCS3 


iSAVE CS2 

ZSAVE TESTER STATUS 

SAVE ERROR REGISTER 
SAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 

:IS READY SET 

sRDY IS SET 

:RDY DID NOT SET 

WHAT ERRORS ARE SET 

:1S DOUBLE SET 

TEST IS OK 

;DOUBLE DID NOT SET AFTER A 4 WORD 
:SEE IF ANY ERROR ARE SET 
: CLEAR ERRORS 


FREER ERR KEKE KEKE REE EEE RK ERE RE KEE ERE EERE ERE EERE REE EERE 


:*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV 


BAI SET IN RHCS2 


: *OPERATION BEING PREFORMED WILL BE PRINTED OUT 


-eeeheeeteekeaerenearantetteatenenearanrenereneteerenneraeeneeee 


S_ IN AN RH11 


s] 
ssQkT our OF TEST 


SET UP WC FOR ONE WORD 
SETUP BUS ADDRESS 

: SETUP BUS ADDRESS EXTENSION 
:DEVICE 7 
STELL IT TO READO 
:CLEAR BIT COUNTER 

:1S_RDY SET 


MACY11 30A(1052) 12=JUL=79 10:46 
735 DOUBLE TEST ,4 
BNE 18$ 
CLR BITCNT 
19$: BIT ARDY ,@RHCS? 
BNE DBLED 
INC BITCNT 
BEQ DBLED 
BR 19$ 
DBLED: 
MOV @RHCS1,CS1 
MOV @RHWC WC 
MOV @RHBA, 
TST R1 
BEQ 87$ 
CLR BAE 
CLR CS3 
JMP 86$ 
87$: MOV @RHBAE ,BAE 
MOV @RHCS3,CS3 
86$: MOV @RHCS2,CS2 
MOV @RHST, 5S1 
MOV @RHER.ER1 
MOV @RHTDB, TDR 
MOV @RHMR2, TC 
BIT #RDY ,ARHCS1 
BNE DAYAMS 
ERROR 102 
JSR R7,WHYFO 
DAYAMS: BIT #DBL ,@RHCS3 
BNE ERR29 
ERROR 124 
JSR R7,WHYFO 
ERR29: JSR R7,CLEER 
JSR R7,ERRTST 
sTEST 36 DOUBLE TEST 1WORD TRANSFER READ 
7*WRITE FWD AND REV AND WITH BA 
7*IN ERROR MESSAGE. 
PR. teehee wdc eww ae RH70 ONL Y 
15136: SCOPE 
TST R1 
BMI TST37 
MOV #-1 ,aRHWC 
MOV #EVENAD , (RHBA 
MOV #ZERO, @RHBAE 
MOV #7 ,ARHCS2 
MOV #READO, @RHCS1 
CLR BITCNT 
18$: BIT tata 


BNE 
INC — BITCNT \ 
BNE 18$ 


BIT IS SET 
: COUNT UP 
SNOT FINISHED COUNTING 
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026050 


026250 


026254 
0 


026354 


07=JUN- 


005037 
032777 


000770 
017737 


004737 


001004 


003446 
000200 


C03446 


007224 
006572 
050210 


177776 


003446 


003446 
000200 


155246 


003420 
003444 
003414 


003416 


155112 


155126 


154754 


E 
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DOUBLE TEST 1WORD TRANSFER READ 


CLR BITCNT 


19$: BIT —_#RDY,aRHCS1 
BNE 
INC BITCNT 
BEQ 3$ 
BR 19$ 
3$: 


MOV @RHCS1,CS1 
MOV @RHWC , WC 
MOV @RHBA ,BA 


TST R1 

BEQ 87$ 

CLR BAE 

CLR CS3 

JMP 86$ 
87$: MOV @RHBAE ,BAE 

MOV @RHCS3,CS3 
86$: MOV @RHCS2,CS2 


MOV @RHST ,DS1 
MOV @RHER,ER1 
MOV @RHTDB,TDR 
MOV @RHMR2 , TC 
BIT wane 


BNE 
ERROR 102 
JSR R7,WHYFO 


1$: BIT ADBL ,aRHCS3 
BEQ 2$ 
ERROR 154 
JSR R7,WHYFO 
2$: JSR R7,CLEER 


JSR R7,ERRTST 


GET READY TO DO IT AGAIN 
:IS_IT SET YET? 


: COUNT UP 
;BIT IS NOT GOING TO SET 


; SAVE RHCS1 
SAVE WORD COUNT 
2 SAVE BUS ADDRESS 


ONT INUE 
> SAVE _ ADDRESS EXTENSION 
SAVE RHCS3 

sSAVE CS2 
SSAVE TESTER STATUS 
SAVE ERROR REGISTER 

: SAVE TESTER DATA REG. 

7 SAVE ae TESTER REG. 

SIS READY SET 
;RDY SET CONT. TEST 
[READY DID NOT SET 

ANY ERRORS SET 

71S DOUBLE SET 

:DBL SET 

:DBL DID SET ON A 1 WORD TRANSFER 
3; TELL WHY NOT 

; CLEAR ERRORS 


SII IISIOIIIDIIIIDIDIIIOIOIOIIIIIDIOIDIOIOIISIOIOIOI IIIT IIIT IOI TOTTI TOTTI IO 
T*TEST 37 DOUBLE TEST WITH 2 WORD TRANSFER AND BAI SET 
:*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV 
*WRITE FWD AND REV AND WITH BAI SET IN RHCS2 
;*OPERATION BEING PREFORMED WILL BE PRINTED OUT 
seIN ERROR MESSAGE. 


(kee ehekenge'ens RH70 PEF vtnweesasdeceetereensas 

SMR Bee Sen Chie ewtck Rte bh erat bes ies ere obey. See 
TST37: SCOPE 

TST R1 31S_IN AN RH11 

BMI TST4O 32GET OUT OF TEST 

MOV 4-2 ,aRHW ;SET UP WC FOR TWO WORD 

MOV ME VENAD , @RHBA SETUP BUS ADDRESS 

MOV #ZERO,@RHBAE ;SETUP BUS ADDRESS EXTENSION 

MOV #7!BAI ,@RHCS2 DEVICE 7 

MOV muR1TEO, @RHCS1 ;TELL IT TO WRITEO 

CLR BITCN ;CLEAR BIT COUNTER 
18%: BIT ARDY, aRHCS1 :IS_RDY SET 

BNE 3$ :BIT is SET 

INC BITCNT T UP 

BNE 18$ \ NOT FINISHED COUNTING 

CLR BITCNT :GET READY TO DO IT AGAIN 
19$: BIT ARDY ,@RHCS1 31S IT SET YET? 


BNE 3$ svE$ 


SEQ 0082 


- 
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CZRMBE P11 O7=JUN=79 13:44 137 DOUBLE TEST WITH 2 WORD TRANSFER AND BAI SET 
4561 026356 005237 003446 INC BITCNT ; COUNT UP .. 
4362 026362 001401 BEQ 3$ BIT iS NOT GOING TO SET 
4363 6364 000770 BR 19$ 
4364 026366 3$: 
4365 026366 017737 154736 003420 MOV @RHCS1,(S1 :SAVE RHCS1 
4366 026374 017737 154732 003444 MOV @RHWC , WC :SAVE WORD COUNT 
4367 026402 017737 154726 003414 MOV @RHBA , ;SAVE BUS ADDRESS 
4368 026410 005701 TST R1 71S IT AN RH11 
4369 026612 001406 BEQ 87$ :NO_IT'S A 70 
4370 026414 005037 003416 CLR BAE :CLEAR BAE 
4371 026420 005037 003424 CLR CS3 CLEAR CS3 
4372 026424 137 026444 JMP 86$ ; CONT INUE 
4373 026430 017737 154724 003416 87$: MOV @RHBAE , BAE SAVE BUS ADDRESS EXTENSION 
4374 026436 017737 154720 003424 MOV @RHCS3,CS3 ;SAVE RHCS3 
4375 026444 017737 154670 003422 86$: MOV @RHCS2,CS2 sSAVE CS2 
4376 026452 017737 154664 003432 MOV @RHST .DS1 SAVE TESTER STATUS 
4377 026460 017737 154660 003436 MOV @RHER ,ER1 SAVE ERROR REGISTER 
4378 0264 017737 154656 003442 MOV @RHTDB, TDR SAVE TESTER DATA REG. 
4379 026474 017737 154636 003440 MOV @RHIAR2 , TC ;SAVE MR2 TESTER REG. 
4380 026502 032777 000200 154620 BIT ARDY ,@RHCS1 71S READY SET 
4381 026510 001003 BNE ; 1$ sRDY SET CONT. TEST 
4382 026512 104102 ERROR 102 » READY DID NOT SET 
4383 026514 004737 007224 JSR R7 ,WHYFO zANY ERRORS SET 
4384 026520 032777 002000 154634 1$: BIT ADBL , ARHCS3 1S DOUBLE SET 
4385 026526 001403 ; BEQ 2$ :DBL SET 
4386 026530 104153 ERROR 153 :DBL DID SET ON A 2 WORD TRANSFER 
4387 026532 004737 007224 JSR R7,WHYFO TELL WHY NOT 
4388 026536 004737 006572 2$: JSR R7,CLEER [CLEAR ERRORS 
4389 026542 004737 050210 JSR R7,ERRTST 
4390 SRR IIRC OSC IOIOIOIOI IORI IOI IOI IOI IA AAAIASII SII ASIN ISI SII AI AI AAAI A AS 
4391 S*TEST 40 DBL_TEST 2 WORD TRANSFER WITH BAI AND WRITE REV 
4392 3*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV 
4393 :*WRITE FWD AND REV AND WITH BAI SET IN RHCS2 
4394 : *OPERATION BEING PREFORMED WILL BE PRINTED OUT 
4395 : :*IN ERROR MESSAGE. 
Coen oes aoe eg ge Oe ee et , etembey MTG CULV cccccusicsnussecestenes 
4397 dudadkasehekankelotehekaansansdaene ae aah 
4398 026546 000004 T5140: SCOPE . 
4399 026550 005701 TST R1 31S_IN AN RH11 
4400 026552 100532 BM] TST41 3GET OUT OF TEST 
4401 026554 012777 177776 154550 MOV 4-2, ARHWC SET UP WC FOR TWO WORD 
4402 026562 012777 004000 154544 MOV HEVENAD , dRHBA SETUP BUS ADDRESS 
4403 026570 012777 000000 154562 MOV #ZERO, @RHBAE SETUP BUS ADDRESS EXTENSION 
4404 026576 012777 000017 154534 MOV #7 'BAT , @RHCS2 DEVICE 7 
4405 026604 012777 000067 154516 MOV *uRITES, @RHCS1 :TELL IT TO WRITE6 
4406.+026612 005037 003446 CLR BITCN [CLEAR BIT COUNTER 
4407 © 026616 032777 000200 154504 18$: BIT ARDY, SRHCS1 21S _RDY SET 
4408 026624 001015 BNE 3$ BIT IS Foes 
4409 026626 005237 003446 INC BITCNT ; COUNT 
4410 026632 001371 BNE 18$ :NOT FINISHED COUNT ING 
4411 026634 005037 003446 CLR BITCNT :GET READY TO DO IT AGAIN 
4412 026640 032777 900200 154462 19$: BIT ARDY ,@RHC(S1 31S IT SET YET? 
4413 026646 001004 BNE 3$ ZYES 
4414 026650 005237 003446 INC BITCNT :CQUNT UP 
4415 026654 001401 BEQ 3$ :BIT IS NOT GOING 10 SET 
4416 026656 000770 BR 19$ 
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CZRHBE 


027034 


027040 


027160 


07=JUN= 


004737 


peene 


017737 
017737 


154444 
154440 
154434 


Bharae 


000200 


007224 


002000 


007224 
006572 
050210 


177776 


000200 


5 
i 4003446 


003446 
000200 


003446 


154152 
154146 


003420 
003444 
003414 


003416 


154326 


154342 


154170 


003420 
003444 
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740 DBL TEST 2 WORD TRANSFER WITH BAI AND WRITE REV 


, 
MOV @RHCS1,CS1 ;SAVE RHCS1 
MOV @RHWC , WC ;SAVE WORD COUNT 
MOV @RHBA ,BA ;SAVE BUS ADDRESS 
TST R1 ;1S IT AN RH11 
BEQ 87$ i. sNO IT'S A 70 
CLR BAE ;CLEAR BAE 
CLR CS3 sCLEAR CS3 
JMP 86$ >; CONT INUE 

87$: MOV @RHBAE , BAE + SAVE BUS ADDRESS EXTENSION 
MOV @RHCS3,C53 ; SAVE RHCS3 


863: MOV @RHCS2,CS2 


i SAVE CS2 
MOV @RHST ,DS1 ZSAVE TESTER STATUS 


MOV @RHER,ER1 ZSAVE ERROR REGISTER 
MOV @RHTDB, TDR TSAVE TESTER DATA REG. 
MOV @RHMR2 , TC TSAVE MR2 TESTER REG. 
BIT #RDY ,@RHCS1 :IS READY SET 
BNE 1$ :RDY SET CONT. TEST 
ERROR 102 [READY DID NOT SET 
JSR R? ,WHYFO ZANY ERRORS SET 

1$: BIT #DBL ,@RHCS3 [1S DOUBLE SFT 
BEQ 2$ :DBL SET : 
ERROR 155 :DBL DID $ET ON A 2 WORD TRANSFER 
JSR R7,wHYFO >TELL WHY NOT 

2$: JSR R7,CLEER [CLEAR ERRORS 
JSR R7,ERRTST 

° pgs teicoplanin esha 

TeTEST 41 DBL TEST 2 WORD TRANSFER ODD ADD. 


z*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV 
:*WRITE FWD AND REV AND WITH BAI SET IN RHCS2 
: *OPERATION BEING PREFORMED WILL BE PRINTED OUT 
sein ERROR MESSAGE. 
TETTTIT TTT Tree THATS DAN ocensescnessstvvenivnss 


: 
L4 RITE BLL beat ore taketh Mesto Conky seg ba bb bie cs gin See oat 


7$141: SCOPE 


TST R1 71S IN AN RH11 

BMI TST42 2¢GET our OF TEST 

MOV 4-2 ,dRHWC SET UP wC FOR TWO WORD 

MOV #ODDAD , ARHBA SETUP BUS ADDRESS 

MOV ‘AZERO, @RHBAE ; SETUP BUS ADDRESs EXTENSION 

MOV #7 ,ARHCS2 :DEVICE 7 

MOV #uRITEO, @RHCS1 TELL IT TO WRITEO 

CLR BITCN = CLEAR BIT COUNTER 
18%: BIT OADY arcs [1S RDY SET 

BNE 3$ : * spit 1S SET 

INC BITCN) ; : COUNT UP 

BNE 18% sNOT FINISHED COUNTING 

CLR BITCNT ;GET READY TO DO IT AGAIN 
19$: BIT ARDY ,@RHCS1 s3S IF SEY YET? 

BNc 3$ YES 

INC BITCNT } ;COUNT UP 

BEQ 3$ :BIT IS NOT GOING TO SET 
- BR 19% 

MOV @RHCS7,CS1 s SAVE RHCS1 

MOV aRHwC , WC ; SAVE WORD COUNT 


SEQ 0084 


ae deny R76 AND RH11 FS oe? tes 


CZRHBE P11 


027326 


027332 


027470 


07=JUN=7' 


017737 
005701 


004737 
004737 
004737 


000004 


13:44 
154142 


003416 


000200 


007224 
002006 


007224 
006572 
050210 


177776 
aes 


000200 
003446 


003446 
000200 


003446 


003414 


003416 


154050 


153676 


003420 
003444 
003414 


MACY11 ao Hit 
741 


MOV @RHBA ,BA 


TST Ri 

BEQ 87$ 
CLR BAE 
CLR CS3 
JMP 86$ 


87%: MOV aousice 


86$: MOV 
MOV @RHST, 5S] 
MOV @RHER.ER1 
MOV tls, Bh 


H 
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; SAVE BUS ADDRESS 
IS IT AN RH11 
iNO IT'S A 70 
sCLEAR BAE 
ZCLEAR (S3 
; CONT 


INUE 
7 SAVE 5 ADDRESS EXTENSION 
sSAVE RHCS3 
SAVE CS2 
:SAVE TESTER STATUS 
SAVE ERROR REGISTER 
are TESTER DATA REG. 
SAVE MR2 TESTER REG. 
SIS READY SET 
:RDY SET CONT. TEST 
:READY DID NOT SET 


:DB 

:DBL DID SET ON A 2 WORD TRANSFER 
7 TELL WHY NOT 
[CLEAR ERRORS 


ROR AREER ERR EERE ERE REERKREREREEREKRRREE He 


:*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV 
:*WRITE FWD AND REV AND WITH BAI SET IN RHCS2 
; *OPERATION BEING PREFORMED WILL BE PRINTED OUT 


® ISI SITIT ETT TTT TTT TTT TT TT TET TTT TTT TTT TTT eT TTT CPR KHEDK 


S_IN AN RH11 


si 
3:GET OUT OF TEST 


:SET UP WC FOR TWO WORD 
SETUP BUS ADDRESS 

: SETUP BUS ADDRESS EXTENSION 
DEVICE 7 

TELL IT TO WRITE6 

[CLEAR BIT COUNTER 

:1S _RDY SET 

BIT IS SET 


: COUNT UP 
NOT FINISHED COUNTING 


GET READY TO Be IT AGAIN 
ives SET YET 


COUNT UP 
:BIT IS NOT GOING TO SET 


SAVE RHCS1 


SAVE WORD COUNT 


MOV @RHMR2, 
BIT ARDY ,@RHCS1 
BNE 1$ 
FRROR 102 
JSR R7,WHYFO 
1$: BIT ADBL ,@RHCS3 
BEQ 2$ 
ERROR 156 
JSR R7,WHYFO 
23: JSR R7,CLEER 
JSR R7,ERRTST 
S*TEST 42 DBL TEST EVEN ADD. WRITE FwD 
:*IN ERROR MESSAGE. 
hie deceibsamsicias RH70 ONLY 
1S142: SCOPE 
TST R1 
BM! TST43 
MOV 4-2 , @RHWC 
MOV MEVE NAD , @RHBA 
MOV #ZERO,@RHBAE 
MOV #7 ,ARHCS2 
MOV AWRITE6,ARHCS1 
CLR BITCNT 
18$: BIT ARDY ,ARHCS1 
BNE 3$ 
INC BITCNT 
BNE 18$ 
CLR BITCNT 
19$ BIT ARDY ,@RHCS1 
BNE 3$ 
INC BITCNT 
BEQ 3$ 
BR 19% 
3$: 
MOV @RHCS1,CS1 
MOV @RHWC , Ww 
MOV @RHBA ,BA 
TST R1 


BEQ 87$ 


7 SAVE BUS apone 34 
:IS IT ANR 
iNO IT'S A oD 


SEG 0085 
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005037. 


504987 


000770 
017737 


007224 
002000 


007224 
006572 
050210 


177776 


000200 
003446 


003446 
000200 


903446 


003416 
003424 
030014 


03416 


153542 


153556 


153426 


153404 


003420 
003444 
003414 
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CLEAR BAE 
:CLEAR CS3 
ON 


TINUE 
“SAVE BUS ADDRESS EXTENSION 
;SAVE RHCS3 


; E CS 

;SAVE TESTER STATUS 
ZSAVE ERROR REGISTER 
~ TESTER DATA REG. 

SAVE MR2 TESTER REG. 

1S READY SET 

*RDY SET CONT. TEST 
sREADY DID NOT SET 
;ANY ERRORS SET 
:1S DOUBLE SET 

:DBL SET 

;DBL DID SET ON A 2 WORD TRANSFER 
STELL WHY NOT 
CLEAR ERRORS 


bd ee Se ee re OOS eee ee TRESS eee eee eee eee 


DBL_TEST c WORD ODD ADD. WRITE REV 


*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV 
“ eWRITE FWD AND REV AND WITH BAI SET IN RHCS2 
; *OPERATION BEING PREFORMED WiLt BE PRINTED QUT 


SRR CREAR AREER RARER EERE ERE HEREREKARHKEEREREREK EEE 


I 
MACY11 30A(7052) 12=JUL=79 
742 DBL TEST EVEN ADD. WRITE FwD 
CLR BAE 
CLR CS3 
JMP 86$ 
87$: MOV @RHBAE ,BAE 
MOV @RHCS3,053 
. B6$: MOV @RHCS2,CS2 
MOV @RHST,DS1 
MOV @RHER,ER1 
MOV @RHTDA, TDR 
MOV @RHMR2, TC 
BIT #RDY ,@RHCS1 
BNE 1$ 
ERROR 102 
JSR R7,WHYFO 
1$ BIT #DABL ,aRHCS3 
BEQ 2$ 
ERROR 157 
JSR R7,WHYFO 
2$ JSR R7,CLEER 
JSR R7,ERRTST 
TeTEST 43 
‘hp ERROR MESSAGE. 
i gre hse Bi pelinichonee ects RH70 ONLY 
TST43: SCOPE 
TST R1 
BM! TST44 
MOV #-2 , aRHWC 
MOV #ODDAD , ARHBA 
MOV #ZERO, @RHBAE 
MOV #7 ,ARHCS2 
MOV #wRITE6,a@RHCS1 
CLR BITCNT 
18$: BIT #RDY ,@RHCS1 
BNE 
INC BITCNT 
BNE 18$ 
CLR BITCNT 
198: BIT #RDY, @RHCS1 
BNE 3$ 
INC BITCNT 
BEQ 3$ 
gs 19% 
3$: 
MOV @RHCS1,C51 
MOV @RHWC WC 
V @RHBA ,BA 
TST R1 
BEQ 87% 
CLR BAE 
CLR ($3 
JMP 86% 


IN AN RH11 


ai$ 
:GET OUT OF TEST 


:SET UP wC FOR TwO wORD 
SETUP BUS ADDRESS 

sSETUP BUS ADDRESS EXTENSION 
SDEVICE 7 

sTELL IT TO WRITE6 

SCLEAR BIT COUNTER 
:IS_RDY SET 

:BIT IS SET 

>COUNT UP 

sNOT FINISHED COUNTING 
GET READY TO A IT AGAIN 
i Mie SET YE 


+38 OUNT UP 
:BIT IS NOT GOING TO SET 


SAVE RHCS1 
SAVE WORD COUNT 
; SAVE BUS SS 


SEG 0086 


MASSBUS RH70 AND RH11 gy wag 
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007224 
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050210 


003416 


153250 


153264 
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DBL TEST 2 WORD ODD ADD. WRITE REV 


87$: 
86$: 


1$: 


23: 


@RHBAE , BAE 
@RHCS3,CS3 
@RHCS2,CS2 
@RHST,DS1 
@RHER,ER1 
@RHTDB, TDR 
@RHMR2 , TC 
le tte 


102 


R7 ,WHYFO 
ADBL ,@RHCS3 
2$ 


R7.ERRTST 


BUS ADDRESS EXTENSION 
RHCS3 


CS2 
TESTER STATUS 
ERROR REGISTER 
TESTER DATA REG. 
SAVE MR2- TESTER REG. 
:IS READY SET 
:RDY SET CONT. TEST 


“READY DID NOT SET 


;ANY ERRORS SET. 


71S DOUBLE SET 
:DBL SET 


;DBL DIDN'T SET ON A 2 WORD TRANSFER 
;TELL WHY NOT 
; CLEAR ERRORS 


SEQ 0087 


. Gear ae | am Gear & cee aoe Gon chee cee ee 
T*TEST 44 DBL_TEST 3 WORD ODD ADD. WRITE R 
* THESE TEST CHECK DBL IN RHCS3 WITHREAD Fw AND REV 
*WRITE FWD AND REV AND WITH BAI SET IN RHCS2 
;*OPERATION BEING PREFORMED WILL BE PRINTED OUT 
sell ERROR MESSAGE. 


* FGI ICIS ICI ISIIOIOIOI ISO IIOI TOI TOA TOT ARTI TTT RAT A tet 





030116 


000004 


000770 
017737 


017737 


177775 


6 
000200 
003446 


003446 
000200 


003446 


153074 
153070 
153064 


003416 


153026 


"153112 


003420 
003444 
003414 


003416 
003424 
003422 


T5144: 


R1 

TST45 

4-3, ARHWC 
#ODDAD , ARHBA 
#7ERO, ARHBAE 
#7 ,ARHCS2 
#URITEG, @RHCS1 
BITCN 


ARDY, DRHCS1 
3$ 
ow 


BITCNT 

#RDY ,@RHCS1 
3$ 

BITCNT 

3$ 

19$ 


@RHCS1,CS1 


IN AN RH11 


gig 
:GET OUT OF TEST 


:SET UP WC FOR THREE WORD 
SETUP BUS ADDRESS 

;SETUP BUS ADDRESS EXTENSION 
SDEVICE 7 


STELL IT TO WRITE6 
:CLEAR BIT COUNTER 


:1S_RDY SET 
:BIT IS SET 
; COUNT UP 


SNOT FINISHED COUNTING 
:GET READY TO DO IT AGAIN 


SIS IT SET YET? 
jes 


; COUNT UP 
;BIT IS NOT GOING TO SET 


“;SAYE RHCS1 


2 SAVE WORD COUNT 
coe AS ADDRESS 


> CONT INUE 

;SAVE BUS ADDRESS EXTENSION 
; SAVE RHCS3 

SAVE CS2. 
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017737 


003432 


- 152756 


007224 
006572 
004737 050210 


000004 


177776 


0 
000200 
093446 


003446 
000200 


003446 


017737 


1§2772 


152706 | 


152654 
152642 


152620 


003420 
003444 
003414 


003416 


003442 


MACY11 30A(1052) 
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1$: 


2$: 


te=JUL= -79" 


@RHST,9S1 
@RHER ,ER1 
@RHTDB, Hy 
@RHMR2 , TC 
‘." ,@RHCS1 


102 
R7 ,WHYFO 
natalie 


161 

R? ,WHYFO 
R7,CLEER 
R7,ERRTST 


7 
10:46 fa | 89 
DBL TEST 3 WORD ODD ADD. WRITE REV 


SAVE TESTER STATUS 
SAVE ERROR REGISTER 
SAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 
71S READY SET 

sRDY SET CONT. TEST 
READY DID NOT SET 
ANY ERRORS SET 

:IS — SET 


:DBL S$ 

[DBL DID SET ON A 3 WORD TRANSFER 
; TELL WHY NOT 

ZCLEAR ERRORS 


° bth aalasiaind 


S*TEST 45 


DBL_TEST 2 WORD READ FwD 


:*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV 
>*WRITE FWD AND REV AND WITH BAI SET IN RHCS2 
;*OPERATION BEING PREFORMED WILL BE PRINTED OUT 

aii ERROR MESSAGE. 


id SERRA REAR EEE EAE AREER EKER REAR RERARARRERRRRAE RE REe 


T5145: 


R1 

TST46 

4-2, aRHWC 
#EVENAD , @RHBA 
#ZERO,@RHBAE 
#7, @RHCS2 
#READO,@RHCS1 
BITCNT 

ARDY ,@RHCS1 
3$ 


BITCNT 
18$ 


BITCNT 

ARDY ,@RHCS1 
3$ 

BITCNT 

3$ 

19$ 


@RHCS1,CS1 


@RHBAE , 
@RHCS3.CS3 
@RHCS2,CS2 


@RHTDB, TDR 


N AN RH11 


st3 i 
:GET OUT OF TEST 


:SET UP WC FOR TWO WORD 

+ SETUP BUS ADDRESS 

;SETUP BUS ADDRESS EXTENSION 
iDEVICE 7 

;TELL IT TQ READO 

;CLEAR BIT COUNTER 

zI1S RDY SET 

;BIT IS SET 


; COUNT UP 

NOT FINISHED COUNTING 
:GET READY TO DO 1T AGAIN 
1) By SET YET? 


COUNT UP 
:BiT IS NOT GOING TO SET 


SAVE RHCS1 

SAVE WORD COUNT 
SAVE BUS ADDRESS 
31S IT AN RH11 
:NO IT'S A 70 
CLEAR BAE 

CLEAR CS3 


: CONT INUE 
SAVE BUS ADDRESS EXTENSION 
;SAVE RHCS3 


ZSAVE CS2 
:SAVE TESTER STATUS 

:SAVE ERROR REGISTER 
SSAVE TESTER DATA REG. 


SEG 0088 
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0 
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0 


004737 


000004 


001003 
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152502 
000200 


007224 
002000 


‘007224 


003572 
050210 


177776 


003446 


003/46 
000200 


003446 


003440 
152464 


152500 


152326 


003420 
003444 
003414 


003416 


152172 
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’ 


7 
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MOV @RHMR2 , TC ;SAVE MR2 TESTER REG. 
BIT ARDY ,@RHCS1 ;I1S READY SET 
BNE 1$ sRDY SET CONT. TEST 
ERROR 102 sREADY DID NOT SET 
JSR R7,WHYFO , ANY ERRORS S 
1$: BIT #DBL ,@RHCS3:- :I1S DOUBLE SET 
BNE 2$ :DBL SET 
ERROR 162 ;DBL DIDN'T SET ON A 2 WORD TRANSFER 
JSR R7,WHYFO ; TELL “WHY NOT 
2s: JSR R7.,CLEER CLEAR ERRORS 
JSR R7,ERRTST 
eb DERE RRR REE REE EERE REE REE REE EERE REE 
T*TEST 46 DBL_TEST 2 WORD ODD ADD. READ FwD 
:*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV 
;*WRITE FWD AND REV AND WITH BAI SET IN RHCS2 
;*OPERATION BEING PREFORMED WILL BE PRINTED OUT 
s*IN ERRCR MESSAGE. 
St cccccrwsvscceses RH70 DALY  cceccsntecccccseceeses 
PPE E, top ph teh Lots Steel Re meils vee eet bet et betes hs Ce 
T5146: SCOPE ' 
TST R1 31S _IN AN RH11 "s 
BMI TST47 22GET OUT OF TEST 
MOV A-2 ,ARHWC ;SET UP WC FOR TWO WORD 
MOV MODDAD , aRHBA ° ;SETUP BUS ADDRESS 
MOV eB QRHBAE ;SETUP BUS ADDRESS EXTENSION 
MOV #7 ,ARHCS2 DEVICE 7 
MOV meAD0, @RHCS1 STELL IT TO READO 
CLR BITCN :CLEAR BIT COUNTER 
18$: BIT ARDY, BRHCS1 :I1S_RDY SET 
BNE 3$ :BIT IS SET 
INC BITCNT ; ;COUNT UP 
BNE 18% zNOT FINISHED COUNTING 
CLR BITCNT 3GET READY TO - IT AGAIN 
19$: BIT #RDY ,ARHCS1 $33 IT SET VET? 
INC BITCNT : COUNT UP 
BEQ 3$ :BIT IS NOT GOING TO SET 
ss BR 19$ : 
MOV @RHCS1,CS1 SAVE RHCS1 : 
MOV @RHWC , WC SAVE WORD COUNT 
MOV @RHBA ,BA SAVE BUS ADDRESS 
TST R1 :I1S IT AN RH11 
BEQ 87$ iNO IT'S A 70 
CLR BAE CLEAR BAE 
CLR CS3 CLEAR CS3 
JMP 86$ ; CONT INUE 
87$: MOV @RHBAE ,BAE ;SAVE BUS ADDRESS EXTENSION 
MOV @RHCS3,CS3 SAVE RHCS3 ; 
86$: MOV @RHCS2,CS2 SAVE ©S 
MOV @RHST,DS1 ;SAVE TESTER STATUS 
MOV @RHER ,ER1 ;SAVE ERROR REGISTER 
MOV @RHTDB, TDR SAVE TESTER DATA REG, 
MOV @RHMR2 , TC SAVE MR2 TESTER REG. 
BIT #RDY ,@RHCS1 31S READY SET 
BNE 1$ :RDY SET CONT. TEST 


SFQ 0089 


yo de gy we AND ptt te as the 
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031140 


031170 


031174 


314 
031440 
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017737 
017737 


032777 


13: 


007224 
002000 
007224 
006572 
650210 


177776 


000200 
003446 


003446 
000200 


152206 


152034 


003420 


002444 
003414 


003416 


151700 


151714 
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102 
R7 ,WHYFO 
eee 


2$: 


R7,ERRTST 


M 
12=JUL=79 


7 
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DBL TEST 2 WORD ODD ADD. READ FwD 


READY DID NOT SET 


ANY ERRORS SET 


1S DOUBLE SET 
:DBL SET 
;DBL DID SET ON A 2 WORD TRANSFER 


TELL WHY NOT 


ZCLEAR ERRORS 


hd FEAR REE ERRRE REE EREREE RRA RREEEEEERERREEERE EEE 


S*TEST 47 


DBL_TEST 2 WORD EVEN ADD. READ REV 
;*THESE TEST CHECK DBL IN RHCS3 WIiTHREAD FWD AND REV 
:*WRITE FWD AND REV AND WITH BAI 


SET IN RHCS2 


: *OPERATION BEING PREFORMED WILL BE PRINTED OUT 


seiN ERROR MESSAGE. 


<RERRREREEREREEERERRERREEERERORRERAERERERERRRRERER ERE E RE REE RED 


18147: 


2 @RHCS 
#READG, @RHCS1 
BITCNT 


ARDY ,ARHCS1 
3$ 

BITCNT 

18$ 
BITCNT 
ARDY , @RHCS1 
3$ 

BITCNT 

3$ 

19$ 
@RHCS1,CS1 


HBAE ,BAE 
@RHCS3,(S3 
@RHCS2,CS2 


@RHTDB, TDR 
@RHMR2 , TC 
#RDY ,@RHCS1 


102 
R7 ,WHYFO 
ADBL ,@RHCS3 


IN AN RH11 


:IS 
:GET OUT OF TEST 


:SET UP WC FOR TWO WORD 


7SETUP BUS ADDRESS 
SETUP BUS ADDRESS EXTENSION 
;DEVICE 7 


[TELL IT TO READ6 
[CLEAR BIT COUNTER 


:IS_RDY SET 
elt IS - 


:NOT FINISHED COUNT ING 
GET READY TO DO IT AGAIN 


1S IT SET YET? 

zYVES 

;COUNT UP 

:BIT IS NOT GOING TO SET 


:SAVE RHCS1 


SAVE WORD COUNT 
7 SAVE BUS ADDRESS 


; CONT INUE 
SAVE BUS ADDRESS EXTENSION 
;SAVE RHCS3 


5 


SAVE e 
;SAVE TESTER STATUS 
;SAVE ERROR REGISTER 


SAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 
31S READY SET 

:RDY SET CONT. TEST 


;READY DID NOT SET 
ANY ERRORS SEI 
:1S DOUBLE SET 
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031446 :DBL SET 
0 [DBL DID SET ON A 2 WORD TRANSFER 
=TELL WHY NOT 


: CLEAR ERRORS 
031462 050210 R7. ERATST 
LRA RRA E RARER AEA PRATER R EERE EERE EERE RRR R EERE ER ER EERE 
T*TEST 50 DBL TEST 2 WORD ODD ADD. READ REV 
s*THESE TEST CHECK DBL IN RHCS3 WITHREAD FWD AND REV 
> *WRITE FWD AND REV AND WITH BAI SET IN RHCS2 
;*OPERATION BEING PREFORMED WILL BE PRINTED OUT 
:8IN ERROR MESSAGE. 


bd Sdddudebeshonsndbaneahesananmevenasbebakseneneelaenn numa 
$150: 
R1 ;1S_IN AN RHT11 
TST51 3GET out OF TEST 
177776 #=2 ,aRHWC SET UP WC FOR TWO WORD 

MODDAD , ARHBA SETUP BUS ADDRESS 
:SETUP BUS ADDRESS EXTENSION 
DEVICE 7 

#READG, @RHCS1 sTELL IT TO READ6 

BITCN SCLEAR BIT COUNTER 

PRDY vaRHCS1 :1S _RDY SET 

3$ :BIT IS SET 

BITCNT > COUNT UP 

i8$ NOT FINISHED COUNTING 

BITCNT :GET READY TO DO IT AGAIN 

151542 : on :IS IT SET YET? 

:YEs 

BITCNT COUNT UP 

- :BIT IS NOT GOING TO SET 


003420 : @RH($1,(S1 ZSAVE RHCS1 
003444 CWC SSAVE WORD COUNT 
003414 HBA ‘BA [SAVE BUS ADDRESS 


8s 


: CONT INUE 

003416 : . SAVE BUS ADDRESS EXTENSION 
@RHCS3,CS3 ;SAVE RHCS3 
@RHCS2,CS2 iSAVE CS2 
@RHST ,DS1 > SAVE TESTER STATUS 
@RHER ,ER1 SAVE ERROR REGISTER 
@RHTDB,TDR SAVE TESTER DATA REG, 
@RHMR2 , TC SAVE MR2 TESTER REG. 
ARDY ,@ARHCS1 :I1S READY SET 
1$ sRDY SET CONT. TEST 
102 READY DID NOT SET 
R7 ,WHYFO ANY ERRORS SET 

151422 : sont -AANCSS :1S DOUBLE SET 


:DBL SET 
165 DBL DIDN'T set ON A 2 WORD TRANSFER 
031744 004737 007224 R7,WHYFO :TrLl WHY NO 


o-oo = 1 © 
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031750 004737 006572 2$: JSR R7,CLEER ; CLEAR ERRORS 

031754 004737 050210 JSR R7,ERRTST 
PESISISICT IIIT IIIITeTiTeTiLitiitTTeTitititTereTreeeeeeTTTTTTTeeTTe 
D*TEST 51 DBL_TEST 3 WORD EVEN ADD. READ FwD 

;*THESE TEST CHECK DBL IN QHCS3 WITHREAD FWD AND REV 

S*WRITE FWD AND REV AND WITH BAI SET IN RHCS2 

; *OPERATION BEING PREFORMED WILL BE PRINTED OUT 

+*IN ERROR MESSAGE. 


: : OR, ta 6 EE teh etittecescer the tet et ee ee weke 


031769 000004 TST51: 


177775 


R1 
TST52 
#-3, ARHWC 


#EVENAD , @RHBA 
#ZERO, @RHBAE 


7, @RHCS2 


ai, 
#READO,@RHCS1 


BITCNT 


:IS_IN AN RH11 

7:GET OUT OF TEST 
SET UP WC FOR THREE WORD 
SETUP BUS ADDRESS 
SETUP BUS ADDRESS EXTENSION 
DEVICE 7 
:TELL IT TO READO 


:CLEAR BIT COUNTER 
:IS_RDY SET 

sG1T IS Se? 

BITCNT ; COUNT UP 

18$ :NOT FINISHED COUNTING 
BITCNT ZGET READY [0 IT AGAIN 
ARDY , @RHCS1 : SET YET? 

3$ ;YES 

BITCNT 
3$ 

19$ 


@RHCS1,CS1 


000206 
003446 


003446 
000200 


003446 


ARDY ,ARHCS1 
3$ 


151250 
COUNT UP 
:BIT IS NOT GOING TO SET 


003420 
003444 
003414 


SAVE RHCS1 
SAVE WORD COUNT 
2 SAVE BUS ADDRESS 


003416 


INUE 
BUS ADDRESS EXTENSION 
RHCS3 


CSe 
TESTER STATUS 
ERROR REGISTER 


HMRe , TC 
151114 ~ al cacti 
102 
R7 ,WHYFO 
Soe. ESE 


;DBL SET 
166 . DBL DID SET ON A 3 WORD TRANSFER 
R7,WHYFO : TELL WHY NOT 


2$: R7,CLEER ZCLEAR ERRORS 
JS R7,ERRTST 


CD RRR RIKER REAR KEE REE EREERE 


002000 151130 1$: 


007224 


032246 004737 
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s*TEST 52 DBL_TEST 3 WORD EVEN ADD. READ REV 
:*THESE TEST CHECK DBL IN RHCS5 WITHREAD FWD AND REV 
;*WRITE FWD AND REV AND WITH BAI SET IN RHCS2 
; *OPERATION BEING PREFORMED WILL BE PRINTED OUT 
sSIN ERROR MESSAGE. 


5 peaeeaanasabaanaoehedaneeanedoananntaasanesskinsessnsnntuenedieal 


032252 C TST52: 

R1 :1S_IN_AN RH11 
TST53 3:GET OUT OF TEST 

177775 #-3 , ARHWC SET UP WC FOR THREE WORD 
#EVENAD , @RHBA SETUP BUS ADDRESS 
#ZERO,@RHBAE 7SETUP BUS ADDRESS EXTENSION 
#7 ,ARHCS2 DEVICE 7 
HREAD6, ARHCS1 :TELL IT TO READ6 
BITCNT :CLEAR BIT COUNTER 

000200 : ie nin :IS_RDY SET 


:BIT IS SET 
003446 BITCNT ; COUNT UP 
18$ NOT FINISHED COUNTING 
003446 BITCNT :GET READY TO DO IT AGAIN 
000200 150756 : oo it yy SET YET? 


003446 BITCNT : 
3$ 
19$ 


150740 003420 @RHCS71,CS1 SAVE RHCS1 
150734 003444 . SAVE WORD COUNT 
150730 003414 SAVE BUS ADDRESS 
R 71S IT AN RH11 
:NO_IT'S A 70 
003416 CLEAR BAE 
CLEAR CS3 


INUE 
003416 : HBAE , ;SAVE BUS ADDRESS EXTENSION 
RHCS3 


;COUNT UP 
;BIT IS NOT GOING TO SET 


CS2 
TESTER STATUS 
; ERROR REGISTER 
@RHTDB, TDR : TESTER DATA REG. 
@RHMR2 , TC MR2 TESTER REG. 
000200 150622 #RDY , @RHCS1 ITS READY SET 
1$ :RDY SET CONT. TEST 
102 ;READY DID NOT SET 
007224 S R7 ,WHYFO ANY ERRORS SET 
002000 150636 1$: Sn... SS ‘ie oe SET 


L SE 
67 :DBL DIDN'T SET ON A 3 WORD TRANSFER 
007224 TELL WHY NOT 
325 006572 2s: CLEAR ERRORS 
032540 004737 050210 R7.ERRTST 
DR RRR KEK RE ERK RK EKER EERE EKER KERR ER 
SRTEST 53 WCE EW ERROR TEST 
;*THIS TEST CHECKS THAT WCELO WILL SET IN 
*RHCS3 AND THAT WCE SETS IN RHCS1 
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032606 
4992 032614 


5032 033072 
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012777 
013737 
012777 


000770 
017737 


005237 


000001 


033336 
000007 
000000 
004000 
004000 


177776 


000200 
003446 


003446 


000200 
003446 


150426 
150422 
150416 


003416 


000200 


007224 


000200 
003446 


001212 


150546 
150560 
150526 
004002 


150519 
150500 


150466 


150444 


003420 
003444 
003414 


003416 


15031¢ 


150272 
150262 
150252 


150240 
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WCE EW ERROR TEST 


:*1T ALSO CHECKS THAT WCEHI DOES NOT SET 


paws Te WCELO IN _RHCS3...... 
eevccccvese RH70 ONLY 


jiasnenedenaaitatnitinnenenstatai ahd hauiasiaiiaessesseseanensens 


3:D0 1 ITERATION 


71S IT AN RH11 


AN RH/0 
ite S AN a EXIT TEST 


SET DEVICE 7 
;SETUP BUS ADDRESS EXT. 
SETUP BUS ADDRESS 


FIERO IOI IUCR IOI IIIT A IAD IOAD IAI IIIS IIASA SSAA AM 


;MAKE BOTH ADD EQUAL 


ey Er Ree eee 


S153: SCOPE 
MOV #1,$TIMES 
TST R1 
BEQ 1$ 
; JMP FANG 
1$: MOV #7 ,ARHCS2 
MOV #ZERO,@RHBAE 
MOV #EVENAD , @RHBA 
CGE MOV EVENAD , ODDAD 
MOV #=-2,aR 
MOV mite, SRHCSI 
CLR BITCN 
18$: BIT ARDY, NBRHCS! 
BNE MITE 
INC BITCNT 
BNE 18$ 
CLR BITCNT 
19$: BIT ARDY ,@RHCS1 
_ BNE MITE 
INC BITCNT 
BEQ MITE 
BR 19$ 
MITE: 
MOV @RHCS1,CS1 
MOV @RHWC , WC 
MOV @RHBA ,BA 
TST R1 
BEQ 87$ 
CLR BAE 
CLR CS3 
JMP 86$ 
87$: MOV @RHBAE , BAE 
MOV @RHCS3.CS3 
86$: MOV @RHCS2,CS2 
MOV @RHST DS 
MOV @RHER,ER1 
MOV @RHTDB, TDR 
MOV @RHMR2 , TC 
BIT #RDY ,@RHCS1 
BNE VOUS 
ERROR 102 
JSR R7,WHYFO 
VOUS: COM EV E NAD 
MOV #EVENAD , dRHBA 
MOV #=-2 ,ARHWC 
MOV #WRCHO, @RHCS1 
CLR BITCNT 
18$: BIT #RDY ,ARHCS1 
E FAST 


BN 
INC BITCNT 


:FOR TWO WORD TRANSFER 
;TELL IT TO WRITE 
:CLEAR BIT COUNTER 
7IS_RDY SET 
;RIT IS SET 
COUNT UP 
SNOT FINISHED COUNTING 
:GET READY TO dO IT AGAIN 
il Fd SET YET? 


COUNT UP 
:BIT IS NOT GOING TO SET 


:SAVE RHCS1 
SAVE WORD COUNT 
7 SAVE BUS st lt 


ONT INUE 
SAVE BUS ADDRESS EXTENSION 
a RHCS3 

E CS2 
‘SAVE TESTER STATUS 
SAVE ERROR REGISTER 
;SAVE TESTER DATA REG. 
SAVE MR2 TESTER REG. 
31S READY SET 
:RDY IS SET 
:RDY DID NOT SET 
ZANY ERRORS SET 
INVERT BITS FOR WCELO 
iFIX BUS ADDR +) 


SEQ 0094 


, a a 
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023076 001371 18$ ZNOT FINISHED COUNTING 
0 003446 BITCNT :GET READY TO DO IT AGAIN 
000200 150216 : #RDY .@RHCS1 HIS IT SET YET? 
003446 BITCNT : 
FAST 
19$ 
003420 @RHCS1,(S1 :SAVE RHCS1 


003444 ° SAVE WORD COUNT 
003414 @RHBA = SAVE BUS ADDRESS 


; COUNT UP 
:BIT IS NOT GOING TO SET 


; CONT INUE 
003416 : . > SAVE a ADDRESS EXTENSION 
@RHCS3,CS3 7SAVE RHCS3 
@RHCS2,CS2 SSAVE CS2 
@RHST,DS1 SSAVE TESTER STATUS 
@RHER ,ER1 SAVE ERROR REGISTER 
@RHTDB, TDR SAVE TESTER DATA REG. 
; @RHMR2, TC ;SAVE MR2 TESTER REG. 
000200 150062 ARDY , ARHCS1 :1S READY SET 
:RDY IS SET 
- :RDY DID NOT SET 
007224 J IHYFO ANY ERRORS SET 
004000 150076 : :1S WCELO SET 
BN RITEON. sWCELO IS SET 
sWCELO DID NOT SET IN RHCS3 
007224 S sANY ERRORS SET 
001103 : WAS THERE AN ERROR 


BN TWANG YES 
010000 150052 RITEON: #WCEHI ,@RHCS3 Z1S WCEHI SET 
B TWANGY WCEHI DID NOT SET 
ERROI 133 SWCEHI SET WITH WCELO 
040000 150016 TWANG: AWCE ,ARHCS2 :DID WCE SET IN ©£S2 
BN TWANGY :YES, IT SHOULD BE 
E WCE DID NOT SET IN RHCS2 
006572 TWANGY : R7,CLEER [CLEAR ERRORS 
004737 050210 J R7,ERRTST 
033336 FANG: 
CIO IUISIOIDISIIIOIOIDIDIDISIOIOIDIDIOIDIOIOIOIDIDIDIOIOIOIOIOIOIOIOIOIDIDIOIDISIDINIDIDIDIOI UID UIOI IOI i tot 
i*TEST 54 WCE OW ERROR TEST (WCEHI) 
:*THIS TEST CHECKS THAT WCEHI SETS IN RHCS3 
;*AND THAT WCE SETS IN RHCS1 ,IT ALSO TESTS 
se THAT WCELO yd Ay Aide WITH WCEHI 


IRE be eT Lge tone tote a gener eg pete bik eI ee eM PRE A 
033336 000004 18154: 
yey AN 11 OR A 70 


034142 : EXIT TEST 
000007 147762 1$: 3SET DEVICE 7 
177776 =147746 :TwWO WORD TRANSFER 
033364 012777 004000 147742 #E VENAD , ARHBA SETUP BUS ADDRESS 
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633372 013737 2 004000 ODDAD ,EVENAD ;DUP ODDAD 
033400 147722 AWRITEO,@RHCS1 sTELL IT TO WRITE 
BITCNT ;CLEAR BIT COUNTER 
147710 : ARDY ,@RHCS1 :IS_RDY SET 
WCEOwT :BIT IS SET 
003446 BITCNT COUNT UP 
18$ NOT FINISHED COUNTING 
003446 BITCNT ;GET READY TO DO IT AGAIN 
000200 147666 : wt Ee ta 4 I SET YET? 
W T -V 


003446 ; COUNT UP 
;BIT IS NOT COING TO SET 
000770 B 

WCEOwT : 


017737 147650 003420 M SAVE RHCS1 
147644 003444 SAVE WORD COUNT 
147640 003414 @RHBA SAVE BUS ADDRESS 
31S IT AN RH11 


003416 ; 
sCLEAR LS3 
8 ; CONT INUE 
003416 : ;SAVE BUS ADDRESS EXTENSION 
7SAVE RHCS3 
sSAVE CS2 
ZSAVE TESTER STATUS 
SAVE ERROR REGISTER 
@RHTDB,TDR ;SAVE TESTER DATA REG. 
4 QRHMR2, TC ZSAVE MR2 TESTER REG. 
000200 147532 #RDY ,ARHCS1 :1S READY SET 
BN EAU sRDY IS SET 
02 sRDY DID NOT SET 
007224 J ~WHYFO ZANY ERRORS SET 
147524 # 7DO A CONTROLLER CLEAR 
C N SET UP FOR DELAY 
003446 es : : COUNT UP 


7$ 
000007 147504 ;SELECT UNIT #7 
DDAD REVERSE BITS IN ODDAD 
147466 Q CORRECT BUS ADDRESS 
147456 2. @RHWC CORRECT wC 
147446 sTELL IT TO WRITE CHECK 
TCNT :CLEAR BIT COUNTER 
000200 147434 : ARDY ,ARHCS1 :1S_RDY SET 
BN CEERR 


BIT IS SET 
003446 : 


; COUNT UP 
18 sNOT FINISHED COUNTING 
003446 BITCN 3GET READY TO DO-IT AGAIN 
000200 : sI1S IT SET YET? 
E 2VES 
003446 


C ; COUNT UP 
sib ad +3 E BIT IS NOT GOING TO SET 
WCEFRR: 


017737 167774 003420 mM @RH(S1,(S1 SAVE RHCS1 
017737 147370 003444 aRHW. , WC SSAVE WORD COUNT 


0 
6 
0 
i 
1 
1 
1 
1 
; 
; 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
30 
3 
3 
3 


5104 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5 
5131 
5132 
5133 
2134 
5155° 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5145 
5144 


} 
1 
; 
1 
7 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
; 
: 
1 
1 
1 
; 
1 
: 
; 
1 
- 
1 
1 
} 
: 
1 
1 
1 
1 
1 
, 
, 
1 
1 
1 
7 
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— 
NO 
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5171 


5179 


PPP AAPA ASIST STO UIT 


TQ -2 =3 2 9 es ss ss os os ot es 
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033744 


034260 
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017737 
005701 


147364 


003416 
003424 
034 


007224 
10000 


007224 
001103 
004000 
040000 


006572 
050210 


000007 
004000 


000000 


00161 


000100 


177776 
003446 


~ 000200 


003446 


003414 


003416 


147256 


147272 


147246 


147212 


147166 
147154 


147056 


G 
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MOV @RHBA ,BA 
TS? 1 

BEQ 87$ 

CLR BAE 

CLR Cs3 

JMP 86$ 


87$: MOV @RHBAE .BA 
a6$: MOV @RHCS2.CS 
MOV @RHTDA, TDR 


MOV @RHMR2, TC 
BIT ARDY ,@RHCS1 


BNE ERTIP 
FRROR 102 
JSR R7 ,WHYFO 
ERTIP: BIT A#WCEH] ,@RHCS3 
BNE BUSH 
FRROR 5 
SR R7 ,WHYFO 
TSTB SERFLG 
BNE LEAGUE 
BUSH: BIT A#WCELO,@RHCS3 
BEQ LEAGUE 
ERROR 137 
LEFOUT: BIT AWCE ,@RHCS2 
BNE | EAGUE 
ERROR 136 
LEAGUE: JSR R7,CLEER 
JSR R7,ERRTST 


FANGY: 
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SAVE BUS ADDRESS 
71S IT AN RH11 
iNO IT'S A 70 
CLEAR BAE 

eg CS3 


TINUE 
SAVE — ADDRESS EXTENSION 
SAVE RHCS3 

* SAVE eg 

sSAVE TESTER STATUS 

;SAVE ERROR REGISTER 

+ SAVE TESTER DATA RFG. 

;SAVE MR2 TESTER REG. 

s1S READY SET 

RD Y IS-SET 
SRDY DID NOT SET 

sANY ERRORS SET 

71S WCEHI SET 

sWCEHI IS SET 

sWCEHI DID NCT =" IN RHCS3 
sANY OTHER ERRORS SET 

;WAS THERE AN ERROR 


O IS OK 
sWeELO SET WITH WCEHI 
:DID WCE SET 
SwWCE IS SET IN RHCS2 
sWCE DID NOT SET IN RHCS2 
[CLEAR ERRORS 


DU OIOIIOIOIIDIIDIDIDIOIOIOIDIO OI IOIOIDIDIOIDIOIOIOIOIOIOISIOIDIDIDIDIDIDIDIDIDIDIOIIOIDIDIDIDID III tok 
T*TEST 55 INTERUPT ENABLE TEST 

7*THIS TEST VERIFYS THAT IE WILi SET IN RHCS1 

:*AND IT WILL CAUSE AN INTERUPT WHEN RDY IS SET 


4 DGS GUUS SUIS OIOIEISIIIDIIOISOOIOIUISIUIUISIIIOOUOOII INO OUD Entei 


TST55: SCOPE 
MOV #7 , ARHCS2 
MOV oy END AA 


TST 

BM! READY 

MOV ZERO, @RHBAE 
READY: MOV AIETST,aVECADD 

MOV 434 0.PS 


MOV a-1, 


HWC 
MOV *uRITEO' IE, @RHCS1 


BIT #1E,@RHCS1 
BN 2s 


ERROR 174 

2s: CLR a4177776 
CLR BITCNT 

18$: BIT ARDY ,@RHCS1 
BNE TSTIE 


INC BITCNT 
18$ 


:SETUP UNIT NUMBER 
SETUP BUS ADDRESS 
3RH11 OR RH70 ? 
:1TS AN RH11 
= ZERO THE BAE 
;SET UP iad ADDRESS 
>SET PRIORTY 7 
:SET FOR ONE WORD 
grb IT TO WRITE 


S_IE SE 
YES CONTINUE TEST 
IE WILL NOT SET 


:CLEAR BIT COUNTER 
:1S_RDY SET 

BIT IS SET 

COUNT UP 

SNOT FINISHED COUNTING 


SEQ 0C97 


8 
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CZRHBE .P11 O7=JUN=79 13:4 155 INTERUPT ENABLE TES SEQ 0096 


005037 003446 BITCNT :GET READY TO bo IT AGAIN 
032777 000200 147034 198: aati @RHCS1 sis if SET VET 
001004 TSTIE ZYES 


1 8N 
005237 BITCNT ; COUNT UP 
001401 TSTIE :BIT IS NOT GOING TO SET 
000770 B 19% 


017737 003420 : oy @RHCS1,C51 SAVE RHCS1 
003444 C, “SAVE WORD COUNT 
003414 HBA ‘B :SAVE BUS ADDRESS 


ZCLEAR CS3 
3 CONT INUE 
003416 : SAVE BUS ADDRESS EXTENSION 
7 SAVE RHCS3 
@RHCS2,(S2 SAVE CS2 
@RHST ,DS1 SSAVE TESTER STATUS 
@RHER.ER1 SAVE ERROR REGISTER 
@RHTDB, TDR : SAVE TESTER DATA REG. 
@RHMR2 , TC SAVE MR2 TESTER REG. 
000200 146700 — ae SET ? 
SREADY DID NOT SET 
034466 sEXIT TEST 
001103 


‘ ST 

; :RDY DID NOT CAUSE AN INTERUPT 
37 034466 LIT EXIT TEST . 

034454 022626 : : (SP)+,(SP)+ s CORRECT STACK 
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MASSBUS RH70 AND RH11_ DIAGNOSTIC Sa 30A(1052) Samy gpa 10:46 PAGE 100 


CZ7RHBE .P11 O7=JUN=79 13:44 155 INTERUPT ENABLE TES SEQ 0099 
5232 034456 105737 001103 TSTR SERFLG sDID IE SET 

$233 034462 001401 BEQ SPLIT ZYES EMIT TEST 

5234 034464 104175 ERROR 775 *IE HAS OPEN GOING Tu BUS 

5235 034466 004737 006572 SPLIT: JSR R7,CLEER CLEAR ERRORS 


5236 034472 004737 950210 i1SR R7,ERRTST 


MASSBUS _ AND RH11 ta 
P11 O7=JUN=79 13:4 


CZRHBE. 


104147 


000007 
177777 
004100 
000000 
125252 


000000 


000200 
003446 


003446 
000200 


003446 


146500 
146474 
146470 


003416 


146404 
000200 


007224 
004100 


004100 


eae 
J 


146632 


146612 


146610 
146552 


146540 


146516 


603420 
003444 
003414 


003416 


146354 


146356 


oo ly 30A(i052) 


156 


15156: 


19$: 


2$: 


87$: 
86$: 


3$: 


8 
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READ OPERATIONAL TEST (NORMAL) #1 SEQ 0100 


. FERRARA RRR REE REE KERR EE RERER EERE 


S*TEST 56 


READ OPERATIONAL TEST (NORMAL) #1 


:*THESE TESTS VERIFY ALL READ AND WRITE CODES 

:*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
:*NO ERRORS SHOULD OCCUR 


Seal Wee tate tat “a tae ci dak nine nas iit ah tact ie trite: elt acs 


SCOPE 


#7 ,ARHCS2 ;SETUP UNIT SEVEN 
#-1 ,aRHWC : [FOR ONE WORD 
#RBUF , ARHBA SRTUP BA 
#7ERO,RBUF SETUP DATA 
#0AB , @RHTDB :SETUP TESTER DB 
R1 [IS IT AN 11 OR A 70 

1$ IT'S AN RH11 
#7ERO, @RHBAE ZERO BAE 
#READO, @RHCS1 STELL IT TO READO 
BITCNT ZCLEAR BIT COUNTER 
ARDY, @RHCS1 :1S RDY SET 
2$ BIT IS SET 
BITCNT COUNT UP 

18$ NOT FINISHED COUNTING 
BITCNT :GET READY TO DO IT AGAIN 
#RDY ,ARHCS1 ZIS IT SET YET 
2$ :YES 
BITCNT COUNT UP 
2$ ‘BIT IS NOT GOING TO SET 
19$ 
@RHCS1,CS1 _ ; SAVE RHCS1 
ARHWC , WC SAVE WORD COUNT 
@RHBA ;BA , :SAVE_BUS ADDRESS 

1 : :1S IT AN RH11 
87$ :NO_IT'S A 70 
BAE ZCLEAR BAE 
CS3 ZCLEAR CS3 
86$ > CONT INUE 
@RHBAE ,BAE SAVE BUS ADDRESS EXTENSION 
@RHCS3.,C53 SAVE RHCS3 
ARH(S2, C52 SAVE CS2 
@RHST DS] ZSAVE TESTER STATUS 
@RHER.ER1 SAVE ERROR REGISTER 
@RHTDB. TDR TSAVE TESTER DATA REG. 
@RHMR® . TC TSAVE MR2 TESTER REG. 
@RHTDB, $REGO GET DATA 
#RDY , @RHCS1 :1S OR SET 

$ EYES RDY IS SET 

102 READY DID NOT SET 
R7,, WHYFO ARE ANY ERRORS SET 
RBUF , @RHTDB [DID INFO GET WRITTEN OR READ 
4$ SINFO GOT LOADED 
RBUF :DOES RBUF = 0 ' 
5$ :YES INFO DID NOT LOAD 
147 , ZALL_BITS DID NOT LOAD DURING 


zAN READO OPERATION 


a o 
SSBUS_RH70 AND RH11_DIAGNOSTIC a 30A(1052) 12-JUL=79 10:46 PAGE 102 
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035006 000137 035012 4$ sEXIT TEST 
035010 5$: 150 ;READO_ OPERATION DID NOT WORK 
NO BITS WHERE LOADED TO RBUF 
035012 004 007224 4$: R7 ,WHYFO sANY ERRORS SET 
001103 ‘ SERFLG 7 ANY ERRORS i 
E 6$ “NO,EXIT TEST 
79 sPRINT REGISTERS 
006572 6$: R7,CLEER ; CLEAR ERRORS 
035034 004737 050210 R7,ERRTST 
. BRI RI He IT TTI ITT TTT IKE EEE EERE EERE EEE RH 
S*TEST 57 RH OPERATIONAL WRITE TEST #1 
:*THESE TESTS VERIFY ALL READ AND WRITE CODES 
;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FwD 
:*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
:*NO ERRORS SHOULD OCCUR j 


FL RRR RRR RRR RRR RE RR E KR RR EEKRRKEEREKEEREEEEEEERE RK e 
TST57: 
000007 146270 #7, ARHCS2 SETUP UNIT SEVEN 
#OAB, EVENAD SETUP INFORMATION 
#DMD 'MCLK,@RHMR1 SETUP DIAG. MODE 
177777 146240 #-1, aRHWC FOR ONE WORD 
e R1 s1S IT A 11 OR 70 
1$ S AN 11 
000000 146254 #ZERO,@RHBAE 
1$: #EVENAD , 2@RHBA BA 
A#WRITEO,@RHCS1 “TELL IT TO WRITETO 
146226 ADMD , ARHMR1 SMANIPULATE CLOCK 
BITCNT CLEAR LOOP COUNTER 
6 2$: BITCNT : INCREMENT LOOP COUNTER 
000015 003446 #15, BITCNT [1S IT THIRD LOOP FOR SUSEC WAIT 
2$ 7NO LOOP AGAIN 
000003 146200 ADMD !MCLK,@RHMR1 START CHANGING CLOCK 
#DMD , ARHMR1 : CHANGE tPock AGAIN 
ADMD 'MCLK,@RHMR1 CHANGE CLOCK AGAIN 
ADMD , ARHMR1 ZCHANGE CLOCK AGAIN 
146150 #Z7ERO,@RHMR1 ‘GET OUT OF DIAG MODE 
BITCNT :CLEAR BIT COUNTER 
000200 146112 : Ov ame SI 71S RDY SET 


:BIT IS SET 
003446 BITCNT [COUNT UP 
18$ :NOT fp hag COUNT ING 
003446 BITCNT :GET READY TO * IT AGAIN 
000200 146070 ¢ ot ges! yes | SET YET? 


003446 BITCNT 

7$ 

19$ 
146052 003420 @RHCS1,CS1 SAVE RHCS1 
146046 003444 @RHWC , WC SAVE WORD COUNT 
146042 003414  < thamtane at ‘ ret Ny 4 Pada 


R 33 
001406 87$ :NO_IT'S A 70 
005037 003416 BAE CLEAR BAE 


WN WNN NWN NANWAAW 
MO 2 So ss © 
COOONAWEWNO OO 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


WNNWW 
Sess 


COUNT UP 
:BIT IS NOT GOING TO SET 


FEFXKFESEK 
®NARKRWASSHY 


PAAAASAAAAGIN IU 
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CZRHBE P11 


005037 


003424 


000200 


177777 


004002 


004000 


145726 


145716 


145706 


145710 


¥11 30A(1052) 
RH OPERATIONAL WRITE TEST # 


L 8 
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@RHCS2,CS2 
@RHS} ,DS1 
@RHER,ER1 
@RHTDB, TDR 
@RHMR2 , TC 
@RHTDB, $REGO 
hice 


102 
#-1 , @RHWC 
3$ 


140 
#ODDAD , ARHBA 
4$ ; 

141 


SEQ 0102 


CLEAR CS3 
INUE 
BUS ADDRESS EXTENSION 
RHCS3 


CS2 

TESTER STATUS 
ERROR REGISTER 
TESTER DATA REG. 
MR2 + DATA REG. 


71S READY SET 
SYES,CONTINUE TEST 


SREADY DID NOT SET 

:DID WC INCREMENT 

:YES,CONT TEST 

:WRITETO OPERATION DID NOT INC wC 
:DID BA INCREMENT 


:YES CONT TEST 
:BA DID NOT INCREMENT AFTER AN WRITETO OPERATION 
:DID INFO WRITETO TESTER j 


EVENAD ,@RHTDB 
5$ YES, CONT 

ZINFO DID NOT WRITETO TESTER 

ARE ANY ERROR BITS SET 

:WAS THER AN ERROR 

sNO EXIT TEST 

THESE ARE THE CONTENTS OF ALL RH70 REG. 
:THIS IS TO COMMPLETE ERROR PRINTOUT 
:CLEFR ERRORS IF ANY 


007224 
001103 


006572 6$: s 

035466 004737 050210 R7,ERRTST 
TOI ICID IOIDIDIDIOIIIIUIIOIOIIOOIOIDIOIOIDIOIDIOIOIOIUIDIDIDIIIOIIDIOIOIOIIIIOIO IOI 
S*TEST 60 READ OPERATIONAL TEST (NORMAL) #2 

i*THESE TESTS VERIFY ALL READ AND WRITE CODES 

;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 

> *DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 

:*NO ERRORS SHOULD OCCUR 


DUO SIUIUIIUIIIIIIISIDIIOIDIOIIIIOIIUIIIOIUIOIOIIOIOIIOIUISIIOOIIUIUIIOIIOIISUIIOOI Ents 
035472 000004 TST60: 


000007 145636 SETUP UNIT SEVEN 
; ONE D 


#7ERO,RBUF 


125252 145616 io / @RHTDB 


1$ 
#7ERO, @RHBAE *ZERO BAE 
#READ2, @RHCS1 ‘TELL IT TO READ2 
BITCNT - SCLEAR BIT COUNTER 
000200 145544 #RDY ,@RHCS1 SIS RDY SET 


BIT IS SET 
003446 BITCNT : COUNT UP 
18$ SNOT FINISHED COUNTING 
003446 BITCNT :GET 


READY TO ve IT AGAIN 
000200 145522 ARDY ,@RHCS1 1 Bl SET YET 
035610 005237 003446 BITCNT 


000000 145614 
145556 


7 
[COUNT UP 
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035614 001401 2$ ;BIT IS NOT GOING TO SET 
.600770 19$ 


017737 003420 @RHCS1,CS1 SAVE RHCS1 
‘ 003444 . :SAVE WORD COUNT 
003414 @RHBA ,BA ; SAVE BUS ADDRESS 
R1 S IT AN RH11 


3; CONTINUE 
003416 : 7; SAVE oe ADDRESS EXTENSION 
sSAVE RHCS3 
@RHCS2.CS2 ;SAVE CS2 
@RHST, bS1 > SAVE TESTER STATUS 
@RHER.ER1 ;SAVE ERROR REGISTER 
@RHTDB, TDR sSAVE TESTER DATA REG. 
@RHMR2 , TC SAVE MR2 rare REG. 
@RHTDB, $REGO 3GET DAT 
000200 145360 #RDY ,@RHCS1 :1S OR SET 
3$ ‘YES RDY IS SET 
102 [READY DID NOT SET 
007224 R7,WHYFO SARE ANY ERRORS SET 
004100 145362 : RBUF , @RHTDB DID INFO GET WRITTEN OR READ 
4$ ; INFO GOT LOADED 
004100 RBUF [DOES RBUF = 0 
5$ :YES INFO DID NOT LOAD 
104147 147 ALL BITS DID NOT LOAD DURING 
es! em TION 
000137 036006 4$ cOXIT TES 
104150 : | 150 ;READ2 SPERATION DID NOT WORK 
:NO BITS WHERE LOADED TO RBUF 
regeid 007224 : R7,WHYFO 7 ANY ERRORS SET 
001105 ANY ERRORS ? 
6$ “NO. EXIT TEST 
*PRINT REGISTERS 


1 
004737 006572 : ;‘ ;CLEAR ERRORS 
004737 050210 JS R7,ERRTST 
JIC GUIS IOSD UIOIODIDUIDOI SION I I i tet 
SR TEST 61 READ OPERATIONAL TEST #1 
:*THESE TESTS VERIFY ALL READ AND WRITE CODES 
;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
:*NO ERRORS SHOULD OCCUR 


PO gaare ties eather cetn aanb tetera 
TST61: 
000007 MOV #7 ,ARHCS2 ;SETUP UNIT SEVEN 
#AB , aRHTDB ;SETUP INFORMATION 
DMD IMCLK. ,@RHMR 1 sSETUP DIAG. MODE 


177777 #~1 R ON 
! of at: Wy A 11 OR 70 
1$ c1T°S AN 11 
000000 #ZERO, @RHBAE 3 ZERO BAE 
012777 004000 : : MEVENAD , 2RHBA :SETUP BA 


oe 
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CZ7RHBE .P11 O7=JUN-79 13:4 T61 READ OPERATIONAL TEST 41 SEQ 0104 


012777 000071 #READO,@RHCS1 eTELL IT TO READFROM 
000001 1 


; OUNTE 

BITCNT ; INCREMENT LOOP COUNTER 
#15,BITCNT :1S IT THIRD LOOP FOR S5SUSEC WAIT 
2$ :NO LOOP AGAIN 
ADMD !MCLK ,@RHMR1 START CHANGING CLOCK 
#DMD , @RHMR 1 ;CHANGE CLOCK AGAIN 
#DMD'MCLK , @RHMR 1 CHANGE CLOCK AGAIN 
#DMD , RHMR1 + CHANGE CLOCK AGAIN 

145154 A#ZERO,@RHMR1 
BITCNT 

145116 : a apapeonic 


BITCNT : COUNT UP 
18$ NOT FINISHED COUNTING 
BITCNT :GET READY TO DO IT AGAIN 
145074 : tai Ht SET YET? 
003446 i BITCNT ; COUNT UP 
+ :BIT IS NOT GOING TO SET 


145056 003420 : @RHCS1,CS1 :SAVE RHCS1 
145052 003444 ; SSAVE WORD COUNT 
145046 003414 QRHBA, : SAVE BUS ADDRESS 


003416 
INUE 
003416 : P ; BUS ADDRESS EXTENSION 
; RHCS3 


CS2 
TESTER STATUS 
; ERROR REGISTER 
@RHTDB, TDR SAVE TESTER DATA REG. 
@RHMR2 , TC : MR2 TESTER REG. 
@RHTDB, $REGO :GET DATA 
000200 144732 ARDY ,ARHCS1 sas READY SET 
8$ YES, CONTINUE TEST 
102 TREADY DID NOT SET 
177777 =344722 : MP #~1 ,ARHWC sDID WC INCREMENT 
3$ :YES,CONT "EST 
;READF ROM etna a DID NOT INC we 


143 
004002 144712 : MP > anda 


EST 
144 7BA DID NOT INCREMENT AFTER AN READFROM OPERATIO 
004000 144714 ; MP A teaeatenage DID me READFROM TESTER 


.CON 
145 : INFO DID NOT READFROM TESTER 
007224 : S R7 ,WHYFO SARE ANY ERROR BITS SET 
001103 SERFLG :WAS THER AN ERROR 
6$ 3NO EXIT TEST 
146 : THESE ARE THE CONTENTS OF ALL RH70 REG, 
104170 170 THIS IS TO COMMPLETE ERROR PRINTOUT 


‘ 
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036456 004737 006572 6$: JSR R7,CLEER ;CLEER ERRORS IF ANY 
036462 004737 050210 JSR R7,ERRTST 
FREER ERE KERR EERE KEE 
TRTEST 62 READ OPERATIONAL TEST (NORMAL) #3 
*THESE TESTS VERIFY ALL READ AND wy CODES 
*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
:*NO ERRORS SHOULD OCCUR 


SEQ 0105 


036770 


001403 


000007 


125252 


000000 
000075 
003446 
000200 
003446 


003446 
000200 


003446 


000200 


007224 
004100 


004100 


144642 


144622 


144620 
144562 


144550 


144526 


003420 
003444 
003414 


003416 


144364 


144366 


FRR KERR EER KERR REE EEE RHR REE RRR EEK Kh 


TST62: 


#7ERO ,RBUF 
— ,@RHTDB 


1$ 
#ZERO,@RHBAE 


MREADS ,@RHCS1 


BITCNT 
ARDY ,ARHCS1 


BITCNT 

18$ 

BITCNT 
ARDY ,@RHCS1 
BITCNT 

2$ 

19$ 


@RHCS1,CS1 


@RHTDB, TDR 
@RHMR2 ,T 
@RHTDB, $REGO 
~ hkeatcinds 


102 
R7,WHYFO 
RBUF , @RHTDB 
4$ 


RBUF 
5$ 


;SETUP UNIT SEVEN 
sFOR ONE WORD 
:SRTUP BA 
SETUP DATA 
;SETUP TESTER DB 
71S IT AN 11 OR A 70 
sI1T'S AN RH11 
;ZERO BAE 
sTELL IT TO READ4 
;CLEAR BIT COUNTER 
71S RDY SET 
;BIT IS SET 

T UP 


: COUN 

sNOT FINISHED COUNTING 
:GET mae t) TO dO IT AGAIN 
313 iF SET Ver 
s¥Es 
COUNT UP 
:BIT IS NOT GOING TO SET 


SAVE RHCS1 

SAVE WORD COUNT 
: SAVE BUS ADDRESS 
71S IT AN RH11 
:NO_IT'S A 70 
:CLEAR BAE 

CLEAR CS3 


TINUE 
SA BUS ADDRESS EXTENSION 
VE RHCS3 
CS 
TESTER STATUS 
AVE ERROR REGISTER 


TESTER DATA REG. 
MR2 TESTER REG. 


SET 
“DID INFO GET WRITTEN OR READ 
INFO GOT LOADED 
DOES RBU 


3 F=0 
YES INFO DID NOT LOAD 
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036772 ERROR 147 sALL_BITS DID NOT LOAD DURING 
7 AN oe OPERATION 
037002 MP 4$ sEXIT TEST 
: 150 [READ4 OPERATION DID NOT WORK 
:NO BITS —s LOADED TO RBUF 
007224 $ JS R7 ,WHYFO SAMY ERRORS SET 
001103 $ER ZANY ERRORS ? 
6$ SNO,EXIT TEST 
:PRINT REGISTERS 


006572 : . : CLEAR ERRORS 
037024 050210 R7,ERRTST 
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5592 
5593 037030 000004 


dD 9 
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PLR REET REE REE EEE EER Re 
i*TEST 63 RH OPERATIONAL WRITE TEST #2 
:*THESE TESTS VERIFY ALL READ AND WRITE CODES 
;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
;*NO ERRORS SHOULD OCCUR 


SAREE EERE EERE REE EEE TERRE EERE eee 


1S163: SCOPE 


SEQ 0107 


: ¥ 
MASSBUS RH70 AND RH11 ig tee MACY71 30A(1052)_ 12=JUL=79 10:46 PAGE 109 
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037032 012777 000007 144300 #7 ,ARHCS2 SETUP UNIT SEVEN 

125252 #OAB, EVENAD ;SETUP INFORMATION 

001003 #DMD 'MCLK!SLKM, @RHMR1 SETUP DIAG. MODE 

177777 ~=144250 #~-1 , aRHWC FOR ONE WORD 
R1 :IS_IT A 11 OR 70 
1$ - i1T'S AN 11 

000000 144264 AZERC,@RHBAE ZERO BAE 
#EVENAD , @RHBA SETUP BA 
AWRITE2,@RHCS1 sTELL IT TO WRITETO 

144236 ADMD ! SLKM, @RHMR1 MANIPULATE CLOCK 
BITCNT ;CLEAR LOOP COUNTER 
: BITCNT ; INCREMENT LOOP COUNTE 

000015 003446 #15,BITCNT [1S IT THIRD LOOP FOR SUSEC WAIT 
2$ [NO LOOP AGAIN 

001003 144210 ADMD !MCLK! SLKM, @RHMR1 START CHANGING CLOCK 
#DMD ! SLKM, @RHMR 1 CHANGE CLOCK AGAIN 
ADMD !MCLK! SLKM, @RHMR1 CHANGE CLOCK AGAIN 
ADMD ! SLKM,@RHMR1 : CHANGE CLOCK AGAIN 

144160 #ZERO,@RHMR1 :GET OUT OF DIAG MODE 

BITCNT :CLEAR BIT COUNTER 

000200 144122 : ARDY ,@RHCS1 :IS_RDY SET 
7$ SBIT IS SET 


003446 BITCNT COUNT UP 
18$ ;NOT FINISHED COUNTING  ° 
003446 BITCNT :GET READY TO ty IT AGAIN” 
000200 144100 : alta 4S SET YET 
003446 BITCNT COUNT UP 
7$ :BIT IS NOT GOING TO SET 
000770 19$ 


017737 144062 003420 @RHCS1,CS1 SAVE RHCS1 
144056 003444 4 SAVE WORD COUNT 
144052 003414 aRHBA, tre ® BUS US ADDRESS 


:NO_IT' ¥ A 70 
003416 ;CLEAR BAE 
CLEAR CS3 
; CONT INUE 
003416 : : SAVE nS ADDRESS EXTENSION 
SAVE RHCS3 
@RHCS2,CS2 SAVE CS2 
@RHST,DS1 [SAVE TESTER STATUS 
@RHER ,ER1 ;SAVE ERROR REGISTER 
@RHTDB, TDR SAVE TESTER DATA REG. 
@RHMR2 , TC 7 SAVE MR2 _TESTER REG. 
@RHTDB, $REGO AT 
000200 143736 + ihc 


102 
177777 ~=143726 : CMP cen 


S 
sWRITETO att enh DID NOT INC wC 
[DID BA INCRE — 
:YES CONT 
:BA DID 


140 
004002 143716 ; Mays rt atin aes 
037420 104141 141 


TES 
DID NOT INCREMENT AFTER AN WRITETO OPERATION 





aeae P RH70 AND RH11 ar 


RHBE .P11 


037422 


037456 


037462 


037724 


023777 


017737 


O7=JUN=79 13:4 


004000 


007224 
001103 


006572 
050210 


000007 
177777 


125252 
000000 
000077 
003446 
000200 
003446 


003446 
009200 


003446 


143514 
143510 
143504 


003416 


143720 


143646 


143626 


143624 
143566 


143554 


143532 


003420 
003444 
003414 


003416 


001162 


sO 
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163 RH OPERATIONAL WRITE TEST #2 


4$: CMP EVENAD ,@RHTDB aoe INFO WRITETO TESTER 
BEQ 5$ ONT 
ERROR 142 INFO DID NOT ita TESTER 
S$: JSR R7 ,WHYFO TARE ANY ERROR BITS SET 
TSTB SERFLG ;WAS THER AN ERROR 
BEQ 6$ :NO EXIT TEST 
ERROR 146 THESE ARE THE CONTENTS OF ALL RH70 REG. 
ERROR 170 THIS IS _ TO COMMPLETE ERROR PRINTOUT 
6$: JSR R7,CLEER ;CLEER ERRORS IF ANY 
JSR R7,ERRTST 
. DIRE RRR KK ERR RIKER KERR ERE EERE ER EERE EKER EH 
S*TEST 64 READ OPERATIONAL TEST (NORMAL) #4 


s*THESE TESTS VERIFY ALL READ AND WRITE CODES 

;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
>*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
:*NO ERRORS SHOULD OCCUR 


te TEER KEKE RRR RRR EERE REE KEKE KEE ERE KER EK EE 


5164: SCOPE 
MOV #7, ARHCS2 ;SETUP UNIT SEVEN 
MOV #-1 , aRHWC [FOR ONE WORD 
MOV #RBUF , @RHBA [SRTUP BA 
MOV #7ERO,RBUF SETUP DATA 
MOV . #9AB,@RHTDB 7SETUP TESTER DB 
TST RI SIS IT AN 11 OR A 70 
BM! 1$ S1T'S AN RH11 
MOV #7ERO, @RHBAE ZERO BAE 1 
1$: MOV #READ6, @RHCS1 ZTELL IT TO READ6 
CLR BITCNT ZCLEAR 81T COUNTER 
18$: BIT #RDY ,@RHCS1 :IS RDY SET 
BNE 2$ BIT IS SET 
INC BITCNT [COUNT UP 
BNE 18$ :NOT FINISHED COUNTING 
CLR BITCNT :GET READY TO DO IT AGAIN 
19$: BIT #RDY ,@RHCS1 31S IT SET YET? 
BNE 2$ ZYES 
INC BITCNT [COUNT UP 
BEQ 2$ :BIT IS NOT GOING TO SET 
es BR 19$ 
MOV @RHCS1,CS1 ;SAVE RHCS1 
MOV ARHWC , WC SAVE WORD COUNT 
MOV @RHBA BA [SAVE BUS ADDRESS 
TST R1 Z1S IT AN RH 
BEQ 87$ =NO IT'S A 70 
CLR BAE :CLEAR BAE 
CLR ($3 . CLEAR CS3 
JMP 86$ > CONT INUE 
87$: MOV @RHBAE , BAE > SAVE BUS ADDRESS EXTENSION 
MOV @RHCS3.(S3 SAVE RHCS3 
86$: MOV @RHCS2,(S2 SAVE CS2 
MOV @RHST ,DS1 SAVE TESTER STATUS 
MOV @RHER.ER1 : SAVE ERROR REGISTER 
MOV @RHTDR, TDR SSAVE TESTER DATA REG. 
MOV @RHMR2 . T TSAVE MR2 TESTER REG. 
MOV @RH!DB. $REGO 3GET DATA 


SEQ 0109 
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037732 032777 000200 143370 J glee 1S 0 R SET 


102 
007224 R7 ,WHYFO ; SE 
004100 143372 ae RBUF , @RHTDB [DID INFO GET paliTEN OR READ 
4$ INFO GOT LOADED 
004100 RBUF [DOES RBUF = 0 
5$ YES INFO DID NOT LOAD 
115 sALL_BITS DID NOT LOAD DURING 
sAN _READ6 OPERATION 
037770 037776 MP 4$ EXIT TEST 
037774 } : 107 ;READ6 OPERATION DID NOT WORK 
:NO BITS WHERE LOADED TO RBUF 
027776 004737 007224 : R7 ,WHYFO ANY ERRORS SET 
001103 ANY ERRORS ? 
6$ 3NO,EXIT TEST 
sPRINT REGISTERS 


006572 6$: :CLEAR ERRORS 
004737 050210 R7ERRTST 

DOI IOIIOIIIIIDIDIDIDIOIDIOIUIOIDIOIOISIOIIOIOIIOIIOIOIIOIIOIIOIDIDIDIOIOIOIIOIS IOI IIIf 

i*TEST 65 RH OPERATIONAL READ TEST 42 
;* THESE TESTS VERIFY ALL READ AND WRITE CODES 
*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
> *DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
;*NO ERRORS SHOULD OCCUR 


ad RARER RRR ERE EERE EERE REE RRR RK ERE 
S165: 
000007 143304 MOV #7 ,ARHCS2 SETUP UNIT SEVEN 
143306 ,@RHTDB ;SETUP INFORMATION 
143304 #DMD ‘MCLK ! SLKM, @RHMR1 :SETUP DIAG. MODE 
177777 3=—143254 #~1 , ARHWC FOR ONE WORD <r 
R1 1S, IT A 11 OR 70 
1$ ; AN 13 
000000 143270 #ZERO,@RHBAE ‘ERO BAE 
143236 1$: : SETUP BA 
143224 3 :TELL IT TO READFROM 
143242 DMD ! SLKM,@RHMR1 sMANIPULATE CLOCK 
BITCNT ;CLEAR LOOP COUNTER 
2$: BITCNT ; INCREMENT LOOP COUNTER 
000015 003446 #15 ,BITCNT :1S IT THIRD LOOP FOR SUSEC WAIT 
2$ [NO LOOP AGAIN 
001003 143214 ADMD !MCLK! SLKM, @RHMR 1 START CHANGING CLOCK 
ADMD : SLKM,@RHMR 1 CHANGE CLOCK AGAIN 
#DMD !MCLK ! SLKM, @RHMR1 CHANGE CLOCK AGAIN 
ADMD ! SLKM, @RHMR1 CHANGE CLOCK AGAIN 
143164 #ZERO,@RHMR1 :GET GUT OF DIAG MODE 
BITCNT :CLEAR BIT COUNTER 
000200 143126 : halt a 31S _RDY SET 


:BIT {s SET 
003446 BITCNT COUNT UP 
18$ SNOT FINISHED COUNTING 
003446 _ BITCNT GET READY TO DO IT AGAIN 
000200 143104 19$: #RDY ,@RHCS1 . SIS IT SET YET? 
040224 001004 7$ 3¥€S 
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CZRMBE .P11 


040226 


040456 


0Q7=JUN-79 


005237 


004737 


000004 


012777 


13:4 
003446 


143066 
143062 
143056 


003416 


000200 


177777 


004002 


004000 


007224 
001103 


006572 
050210 


000007 
177777 


000000 


000000 


003420 
003444 
003414 


003416 


142742 
142732 
142722 


142724 


142652 


142632 


142630 


MACY11 "es aeeha 
T65 OPERATIONAL READ TEST 4&2 


7$: 


87$: 
86$: 


8$: 
3$: 
4$: 


5$: 


6$: 


° SAREE REE RRR AREER EERE EERE EE EEE EEE EERE REE EREKE EE 


JSR 


T*TEST 66 


RARER 


TST66: 


7*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
:*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 


H 9 
12-JUL=79 10:46 PAGE 112 


BITCNT 

7$ 

19$ 
@RHCS1,CS1 


@RHCS2,CS2 
@RHST,DS1 
@RHER,ER1 
@RHTDB,TDR 
@RHMR2 , TC 
@RHTDB, $REGO 
ARDY ,ARHCS1 
8$ 
102 
#~-1 , aRHWC 

3$ 

143 
MODDAD , ARHRA 
4$ 

144 

EVENAD ,@RHTDB 
5$ 

145 

R7 ,WHYFO 
SERFLG 

6$ 

146 


170 
R7,CLEER 
R7,ERRTST 


;COUNT UP 
;BIT IS NOT GOING TO SET 


s SAVE RHCS1 

SAVE WORD COUNT 
SAVE 3US ADDRESS 
71S IT AN RH11 


CLEAR cs3 
: CONT INL 


3: SAVE BUS ADDRESS EXTENSION 


SAVE R 

SAVE CS2 

SAVE TESTER STATUS 
SAVE ERROR REGISTER 


SSAVE TESTER DATA REG. 


SAVE MR2 TESTER REG. 
GET DATA 


31S READY SET 
7YES,CONTINUE TEST 
[READY DID NOT SET 
:DID WC INCREMENT 
:YES,CONT TEST 


sREADFROM OPERATION DID NOT INC WC 


:DID BA INCREMENT 
:YES CONT TEST 


SEQ 0171 


;BA DID NOT INCREMENT AFTER AN READFROM OPERATIO 


DID INFO READFROM TESTER 


CONT 


YES. 
SINFO DID NOT READFROM TESTER 
TARE ANY ERROR BITS SET 


[WAS THER AN ERROR 
NO EXIT TEST 


THESE ARE THE CONTENTS OF ALL RH7O REG. 
TO COMMPLETE ERROR PRINTOUT 


THIS IS 
:CLEER FRRORS IF ANY 


WRITE OPERATIONAL TEST (NORMAL) #1 
2*THESE TESTS VERIFY ALL READ AND WRITE CODES 


:*NO ERRORS SHOULD OCCUR 


47 ,ARH(S2 
#~1 , ARHWC 
#RBUF , @RHBA 
#0AB , RBUF 
SFERD -AANTDS 


1$ 
#7ERO, agRHBAF 


SETUP UNIT SEVEN 
:FOR ONE WORD 
PTUP 


BA 
>SETUP DATA 
SETUP TESTER DB 


:1S IT AN 11 OR A 70 
Z1T°S AN RH11 
ZERO BAE 


 . 
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040530 012777 142572 18: AWRITEO,@RHCS1 sTELL IT TO WRITEO 
0405 C BITCNT >CLEAR BIT COUNTER 
1425€0 188: #RDY , BRHCS1 :IS_RDY SET 
, 5821 1015 2$ BIT IS SET 
582 ; COUNT UP 


003446 BITCNT 
18$ “NOT FINISHED COUNTING 
003446 ‘ BITCNT [GET READY TO DO IT AGAIN 
000200 142536 : BRDY . @RHCS1 1S 17 SET YET? 
BITCNT ‘ 
2$ 
19$ 
003420 @RHCS1,(S1 :SAVE RHCS1 


003444 SAVE WORD COUNT 
003414 RHBA, 7 SAVE BUS ADDRESS 





COUNT UP 
:BIT IS NOT GOING TO SET 


TINUE 
003416 : . BUS ADDRESS EXTENSION 
7 SAVE RHCS3 


@RHCS2,CS2 E CS2 
@RHST,DS1 ; TESTER STATUS 
@RHER ,ER1 ; ERROR REGISTER 
@RHTDB, TDR ; TESTER DATA REG. 
aRHMR2 , TC : MR2 TESTER REG. 
@RHTDB, $REGO :GET DATA 
600260 142374 #RDY , @RHCS1 71S OR SET 
BN 3$ ;YES RDY IS SET 
102 READY DID NOT SET 
007224 R7 ,WHYFO zARE ANY ERRORS SET 
004100 142376 : RBUF , @RHTDB :DID INFO GET WRITTEN OR READ 
4$ : INFO GOT LOADED 
142370 ] :DOES @RHTDB = 0 
:YES INFO DID NOT LOAD 
104151 z:ALL BITS DID NOT LOAD DURING 
ZAN WRITEO OPERATION 
000137 040772 MP : sEXIT TEST 
104152 : :WRITEQ OPERATION DID NOT WORK 
NO BITS WHERE LOADED TO @RHTDB 
004737 007224 : . ANY ERRORS SET 
001103 sANY ERRORS ? 
6$ sNO,EXIT TEST 
sPRINT REGISTERS 


1 
006572 6$: - : CLEAR ERRORS 
041014 004737 050210 R7,ERRTST 
TOO IUIIISIIIIDIOIIIOIOIIUIIOIUOIUIIUIOIOIOIUIOIUIOIIIUIDIOII IUCR EDR nt ites 
T*TEST 67 RH OPERATIONAL WRITE TEST #3 
*THESE TESTS VERIFY ALL READ AND WRITE CODES 
+ *WHE THER IT BE A READ REV. OR FWD OR A WRITE REV. OR FwD 
:*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
:*NO ERRORS SHOULD OCCUR 
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CZRHBE .P11 


se 

oO 
RRRRRRRRR 
anil alt al al call a ca sald ane 


B3NE 


ONMEALKA 


07=JUN- 


_ 000770 
017737 


022777 


000007 
0 
177777 


000000 


000015 


003003 
003001 
003003 


000200 
003446 


003446 
000200 


003446 


142072 
142066 
142062 


003416 


000200 
177777 


004002 


142310 


003446 


142170 
142132 


142110 
\ 


003420 
003444 
003414 


003416 


141746 


141736 


141726 


9 
10:46 PAGE 114 


KERR REE EEE REE RARER EERE REE EEE 


J 
macy 11 Z0A(1052) 12-JUL=79 
167 RH OPERATIONAL WRITE TEST #3 
+é167: SCOPE 
MOV #7, @RHCS2 
MOV #OAB, 


EVENAD 
MOV DMD [MCLK!SLKM!ISLK, ,@RHMR1 


SETUP UNIT SEVEN 
SETUP INFORMATION 
7SETUP DIAG. MODE 


MOV = #1, @RHW :FOR ONE WORD 
TST ~—s RY HIS ITA 11 OR 70 
BMI 1$ Z1T'S AN 11 
MOV - #ZERO, @RHBAE ;ZERO_BAE 
1$: MOV #EVENAD,, @RHBA SETUP BA 
MOV —- #WRITE4; ARHCS1 STELL IT TO WRITETO 
MOV = #DMD! SLKM! ISLK,, @RHMR1 MANIPULATE CLOCK 
CLR — BITCNT :CLEAR LOOP COUNTER 
2s: INC —- BITCNT INCREMENT LOOP COUNTE? 
CMP #15 ,BITCNT 1S IT THIRD LOOP FOR SUSEC WAIT 
BNE 28 NO LOOP AGAIN 
MOV ADMD !MCLK ! SLKM! ISLK,, @RHMR1 ;START CHANGING CLOCK 
MOV  - #DMD' SLKM!ISLK , @RHMR1 CHANGE CLOCK AGAIN 
MoV  —- #DMD !MCLK! SLKM! ISLK, @RHMR1 CHANGE CLOCK AGAIN 
MOV —- #DMD! SLKM!ISLK, @RHMR1 CHANGE CLOCK AGAIN 
MOV = #ZERO, @RHMR1 GET OUT OF DIAG MODE 
CLR = BITCNT CLEAR BIT COUNTER 
18$: BIT — #RDY,a@RHCS1 IS RDY SET 
BNE 7$ :BIT IS SET 
INC —_BITCNT COUNT U 
BNE 188 :NOT FINISHED COUNTING 
CLR —BITCNT GET READY TO DO IT AGAIN 
19$: BIT — #RDY, @RHCS1 IS IT SET YET? 
BNE 7 ZYES 
INC —-BITCNT COUNT UP 
BEQ = 7$ :BIT IS NOT GOING TO SET 
* BR 198 
MOV @RHCS1,(S1 ;SAVE RHCS1 
MOV — @RHWC,W SAVE WORD COUNT 
MOV @RHBA;BA SAVE _BUS ADDRESS 
TST RT 1S IT AN RH11 
BEQ =: 87$ :NO_IT'S A 70 
CLR BAE CLEAR BAE 
CLR -CS3 CLEAR CS3 
JMP -B6$ :CONTINUE 
87$: MOV — @RHBAE ,BAE SAVE BUS ADDRESS EXTENSION 
MOV @RHCS3,(S3 ZSAVE RHCS3 
86$: MOV — ARHCS2,.CS2 SAVE CS2 
MOV — @RHST, DS "SAVE TESTER STATUS 
MOV @RHERER1 SAVE ERROR REGISTER 
MOV — @KHTDB, TDR SAVE TESTER DATA REG. 
MOV — @RHMR2 TC SAVE MR2 TESTER REG. 
MOV — @RHTDB; $REGO :GET DATA 
BIT  #RDY,a@RHCS1 1S READY SET 
BNE 8S :YES,CONTINUE TEST 
ERROR 102 READY DID NOT SET 
8$: (MP #1 ,@RHWC :DID WC INCREMENT 
FoR ZYES,CONT TEST ; 
ERROR 140 :WRITETO OPERATION DID NOT INC w( 
3$: (MP #ODDAD , @RHBA DID BA INCREMENT 


SEQ 0113 
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RESRVS 


Amo 


07=JUN= 
001401 


000004 


017737 


13:4 


004000 


007224 
001103 


006572 
050210 


000000 


000000 
000063 
003446 
000200 


003446 


003446 
000200 » 


— = = OO 

RRARREROS 
~~ = = NA 
SHRHRHRNIARS 
SHWMO - VIN 
SAMAAMA LO 


141730 


141656 


141636 
\ 
141634 
141576 
141564 


141542 
a. 
003420 


003444 
003414 


003416 


003442 


a oe 
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6$: 


RH OPERATIONAL WRITE TEST # 
4$ 
141 
EVENAD, @RHTDB 
5$ . 


R7.ERRTST 


SEQ 0114 


s¥es i. a ad 

:BA DID NOT INCREMENT AFTER AN WRITETO OPERATION 
:DiD INFO WRITETO TESTER 

:YES,CONT 


SINFO DID NGT WRITETO TESTER 

ARE ANY ERROR BITS SET 

;WAS THER AN ERROR 

sNO_EXIT TEST 

THESE ARE THE CONTENTS OF ALL RH70 REG. 
THIS IS TO COMMPLETE ERROR PRINTOUT 
:CLEER ERRORS IF ANY 


FRR RRR RRR EERE RR E KKK EKEEKEEKEEEKKEKE KEE 


SR TEST 70 


WRITE OPERATIONAL TEST (NORMAL) #2 


i*THESE TESTS VERIFY ALL READ AND WRITE CODES 


> *WHETHER IT BE A READ REV 


OR FWD OR A WRITE REV. OR FwD 


>*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 


:*NO ERRORS SHOULD OCCUR 


SERRE RRR KK A RR EEERERE RE RERKEERRE RK EA KEE ERREEE KEE e 


TST70: 


#7 ,ARHCS2 
#-1 ,aRHWC 
#RBUF , ARHBA 
#0AB , RBUF 
4 (eae 


1$ 

#ZERO, @RHBAE 
AWRITE2,@RHCS1 
BITCNT 

ARDY ,ARHCS1 

2$ : 
BITCNT 

18$ 


BITCNT 
ARDY ,ARHCS1 
2$ 


BITCNT 

2$ 

19$ 
@RHCS1,CS1 


@RHTDB, TDR 


:SETUP UNIT SEVEN 
:FOR ONE WORD 
:SRTUP BA 


;SETUP DATA 
sSETUP TESTER DB 


Z1S IT a 11 OR A 70 
RH11 


:1T'S AN 

ZERO BAE 

:TELL IT TO WRITE2 
:CLEAR BIT COUNTER 


SIS _RDY SET 

:BIT IS SET 

COUNT UP 

NOT FINISHED COUNTING 


:GET READY TO DO IT AGAIN 
+s SET YET? 


; COUNT UP 
;BIT IS NOT GOING TO SET 


SAVE RHCS1 

,2 SAVE WORD COUNT 
"; SAVE BUS ADDRESS 
S IT AN RHi1 


; CONT INUE 

SAVE BUS ADDRESS EXTENSION 
;SAVE RHCS3 

SAVE CS2_ 

SAVE TESTER STATUS 


SAVE ERROR REGISTER 
SAVE TESTER DATA REG, 
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041764 


042010 


042202 
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017737 


104151 | 


000137 
104152 


004737 
105737 


004737 


000004 


005037 


141424 
141430 
000200 


007224 
004100 
141374 


041766 


007224 
001103 


006572 
050210 


000007 
177777 


000000 


0 
000015 
003003 


000200 
003446 
003446 


003440 
001162 
141400 


161402 


-* 
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WRITE OPERATIONAL TEST (NORMAL) #2: 


MOV @RHMR2, TC SAVE MR2 TESTER REG. 

MOV @RHTDB. $REGO “GET DATA 

BIT #RDY , ARHCS1 1S OR SE 

BNE 3$ YES RDY IS SET 

ERROR 102 “READY DID NOT SET 

JSR R7.WHYFO TARE ANY ERRORS SET 
3$: CMP RBUF , ARHTDB “DID INFO GET WRITTEN OR READ 

BEQ 4$ SINFO GOT LOADED 

TST @RHTDB “DOES @RHTDB = 0 

BEQ 5$ ‘YES INFO DID NOT LOAD 

+ ERROR 151 ‘ALL BITS DID NOT LOAD DURING 
AN WRITE2 OPERATION 

JMP 4$ “EXIT TEST 
5$ ERROR 152 “WRITE2 OPERATION DID NOT WORK 
“NO BITS WHERE LOADED TO @RHTDB 
43: JSR R7,WHYFO - SANY ERRORS SET 

TSTB —«- $ERFLG “ANY ERRORS. 2 

BEQ 6$ “NO.EXIT TEST 

ERROR 146 ‘PRINT REGISTERS 

ERROR 170 
6$: JSR R7,CLEER ZCLEAR ERRORS 

ISR R7ERRTST 


DG ARK REE REE EK EREKEKEKEKK KK 


REKKRKEEKEKEREAEEEEEKERKEEE 


s*TEST 71 


RH OPERATIONAL READ TEST #3 
:* THESE ‘TESTS ay ALL READ AND WRITE CODES 
:*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
:*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 


=*N0 ERRORS SHOULD OCCUR 


SRE KARR ERE KEE EEEKKEKKEKKKKKKK 


KEKE EEREEKERREEEE 


TST71: SCOPE 
MOV #7 ,ARHCS2 ;SETUP UNIT SEVEN 
MOV #AB , ARHTDB ;SETUP INFORMATION 
MOV #DMD!SLKM!ISLK!MCLK,@RHMR1 SETUP DIAG. MODE 
MOV 4-1, ARHWC FOR ONE, WORD 
TST R1 71S IT A 11 OR 70 
BM] 1$ :1T'S AN 11 
MOV AZERO,@RHBAE ;ZERO BAE- , 
1$ MOV MEVENAD , 2RHBA ; SETUP BA 
MOV AREADS ,@RHCS1 :TELL IT TO READFROM 
MOV #DMD! SLKM! ISLK,@RHMR1 sMANIPULATE CLOCK 
CLR BITCNT :CLEAR LOOP COUNTER 
ef: INC BITCNT : INCREMENT LOOP COUNTER 
CMP #15 ,BITCNT :1S IT THIRD LOOP FOR SUSEC WAIT 
BNE 2$ 3NO LOOP AGAIN 
MOV ADMD! SLKM ISLK!MCLK ,@RHMR1 START CHANGING CLOCK 
MOV ADMD! SLKM! ISLK,@RHMR1 3; CHANGE iPock AGAIN 
MOV ADMD! SLKM! ISLK!MCLK ,@RHMR1 CHANGE CLOCK AGAIN 
MOV #DMD! SLKM!ISLK,@RHMR1 ;CHANGE CLOCK AGAIN 
MOV artes @RHMR 1 ;GET OUT OF DIAG MODE 
CLR BITCN :CLEAR BIT COUNTER 
18$: BIT WRDY aRHCS1 :1S_RDY SET 
BNE 7$ BIT IS SET 
INC BITCNT COUNT UP 
BNE ‘ 18$ SNOT FINISHED COUNTING 
CLR BITCNT :GET READY TO DO IT AGAIN 


SEQ 0115 


‘ 
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RHBE.P11 — O7=JUN-79 13:44 171 OPERATIONAL READ TEST #3 SEQ 0116 
6042 042206 032777 000200 141114 198: BIT — #RDY,a@RHCS1 31S IT SET YET? 
6043 042214 001004 BNE 7$ SYES 
6044 042216 005237 003446 _ INC BITCNT ;COUNT UP 
6045 042222 001401 / BEQ 7S BIT IS NOT GOING TO SET 
6046 042224 000770 BR. 19$ 
6047 042226 7$: 
. 6068 042226 017737 141076 003420 MOV @RHCS1,CS1 ; SAVE RHCS1 
6049 042234 017737 141072 003444 MOV — RWC, WC SAVE WORD COUNT 
6050 042242 017737 141066 003414 MOV @RHBA.BA SAVE BUS ADDRESS 
6051 042250 00570! TST R1 31S IT AN RH11 
6052 042252 001406 BEQ  —-87$ <NO_IT'S A 70 
6053 042254 005037 003416 CLR —-BAE CLEAR BAE * 
6054 042260 005037 003424 CLR S38 CLEAR CS3 
6055 042264 000137 042304 JMP 86S = CONT INUE 
6056 042270 017737 141064 003416 87$: MOV @RHBAE , BAE : SAVE a ADDRESS EXTENSION 
. 6057 042276 017737 141060 003424 MOV  — @RHC(S3.CS3 SAVE RHCS3 
6058 042304 017737 141030 003422 86$: MOV  @RHCS2.CS2 SAVE CS2 
6059 042312 017737 141024 003432 MOV @RHST,DS1 7SAVE TESTER STATUS 
042320 017737 141020 003436 MOV @RHER,ER1 7 SAVE ERROR REGISTER 
6061 042326 017737 141016 003442 MOV — @RHTDB, TDR SAVE TESTER DATA REG. 
6062 042384 017737 140776 003440 MOV — @RHMR2. TC SAVE MR2 TESTER REG. 
6063 042342 017737 141002 001162 MOV —- @RHTDB. $REGO GET DATA 
6064 042350 032777 000200 140752 BIT #RDY, @RHCS1 1S READY SET 
6065 042356 001001 BNE —-8$ ZYES,CONTINUE TEST 
6066 042360 104102 ERROR 102 READY DID NOT SET 
6067 042362 022777 177777 140742 8S: (MP #1, aRHWC DID WC INCREMENT 
6068 042370 001001 BNE 3$ YES,CONT TEST 
6069 042372 104143 ERROR 143 SREADF ROM OPERATION DID NOT INC WC 
6070 042374 022777 004002 140732 3$: CMP #ODDAD , ARHBA DID BA INCREMENT 
6071 042402 001401 BEQ 4$ ;YES CONT TEST 
6072 042404 104144 ERROR 144 :BA DID NOT INCREMENT AFTER AN READFROM OPERATIO 
6073 042406 023777 004000 140734 4$: CMP EVENAD , @RHTDB :DID INFO READFROM TESTER 
6074 042414 001401 BEQ 5$ 7 YES,CONT 
6075 042416 104145 ERROR 145 INFO DID NOT READFROM TESTER 
6076 042420 004737 007224 5$: JSR. _—«R7»WHYFO SARE ANY ERROR BITS SET 
6077 | 042424 105737 001103 TSTB SERFLG zWAS THER AN ERR 
6078 042430 001402 BEQ 6$ :NO EXIT TEST 
6079 042432 104146 ERROR 146 + THESE ARE THE CONTENTS OF ALL RH7O REG. 
6080 042434 104170 ERROR 170 :THIS IS TO COMMPLETE ERROR PRINTOUT 
6081 042436 004737 006572 6$: JSR _—~R7.CLEER SCLEER ERRORS IF ANY 


6082 042442 004737 050210 JSR R7_ERRTST 
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WRITE OPERATIONAL TEST (NORMAL) #3 


PRR E ERR 
SSTEST 72 WRITE OPERATIONAL TEST (NORMAL) #3 
:*THESE TESTS VERIFY ALL READ AND WRITE CODES 
;*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FwD 
;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
;*NO ERRORS SHOULD OCCUR 


SEQ 0117 


042752 


104151 


000007 
177777 
004100 
125252 
000000 


000000 
000065 
003446 
000200 
003446 


003446 
000200 


003446 


140530 
140524 
140520 


060200 


007224 
004100 


140400 


140662 


140642 


140640 
140602 


140570 


140546 


003420 
003444 
003414 


003416 


140404 


140406 


TST72: 


#RBUF , @RHBA 
#OAB ,RBUF 
#ZERO,@RHTDB 


1$ 
#ZERO, @RHBAE 


#uRITES, @RHCS1 


BITCN 
ARDY, SRHCS1 
2$ 


BITCNT 

18$ 

BITCNT 
ARDY ,@RHCS1 
2$ 

BITCNT 

2$ 

19$ 
@RHCS1,(S1 


@RHBAE , 
@RHCS3,(S3 
@RHCS2,CS2 
@RHST ,DS1 
@RHER ,ER1 
@RHTDB, TDR 
@RHMR2 , TC 
@RHTDB, $REGO 
lett 


102 
R7,WHYFO 
RBUF , ,@RHTDB 
@RHTDB 

5$ 


1§1 


ates Me) c Or? ee aee nae pee eT rts ea 


SETUP UNIT SEVEN 
[FOR ONE WORD 
;SRTUP BA 
;SETUP DATA 

sSETUP TESTER DB 
:1S_IT AN a = A 70 
i1T! ; AN RH 

:ZERO BAE 
STELL IT TO WRITES 
;CLEAR BIT COUNTER 
:1S_RDY SET 
3BIT IS SET 


> COUNT UP 

SNOT FINISHED COUNTING 
;GET READY TO DO IT AGAIN 
Sel SET YET? 


; COUNT UP 
:BIT IS NOT GOING 'O SET 


: SAVE RHCS1 

SAVE WORD COUNT 
; SAVE BUS —— 
:1S IT AN RH11 
:NO_IT'S A 70 

: CLEAR BAE 

oe. CS3 


>; CONT INUE 
;SAVE 8US ADDRESS EXTENSION 
7 SAVE RHCS3 
+ SAVE CS2 
sSAVE TESTER STATUS 
:SAVE ERROR REGISTER 
; SAVE TESTER DATA REG. 
;SAVE MR2 TESTER REG. 
ad DATA 
:1S OR 


SET 
:YES RDY IS SET 
[READY DID NOT SET 
sARE ANY ERRORS SET 
:DID INFO GET WRITTEN OR READ 
INFO GOT LOADED 
;DOES @RHTDB = 0 
YES INFO DID NOT LOAD 
sALL BITS DID NOT LOAD DURING 
AN WRITES OPERATION 





MASSBUS RH70 AND RH11_ DIAGNOSTIC 


CZRHBE .P11 
042754 
04 


O7=JUN=79 13:44 
042762 


007224 
001103 


006572 
050210 


000003 
177777 


000000 


000200 
003446 


003446 
000200 


003446 


140102 
140076 
140072 


005037 003416 


140320 
140270 


140304 
140252 
140240 
140256 
003446 


140230 


140200 
140142 


140120 


003420 
003444 
003414 
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WRITE OPERATIONAL TEST (NORMAL) #3 


4$ EXIT TEST 
152 WRITES OPERATION DID NOT WORK 

;NO BITS WHERE LOADED TO @RHIDB 
R7,WHYFO T 


2NO,EXIT 
sPRINT REGISTERS 


: CLEAR ERRORS 
R7. ERRTST 

PETIT IITICIITIITII CTT PTTL TTT TT TIL TTT TTET Titi TTT TTT TiiTiitiiiiil 
T*TEST 73 RH OPERATIONAL WRITE TEST #4 

;*THESE TESTS VERIFY ALL READ AND WRITE CODES 

: *WHE THER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 

;*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 

7*NO ERRORS SHOULD OCCUR 


TS173: 
#7 ,ARHCS2 
#0AB,EVENAD 
#DMD 'MCLK,@RHMR1 
#=-1 ,A@RHWC 
R1 
1$ 
#ZERO, @RHBAE 
#EVENAD , @RHBA 
#WRITE6,ARHCS1 
ADMD , ARHMR 1 
BITCNT 


BITCNT 

#15 ,BITCNT 

2$ 

#DMD !MCLK ,@RHMR1 
ADMD , ARHMR 1 

ADMD !MCLK ,@RHMR1 
ADMD , ARHMR 1 
AZERO,@RHMR1 


BITCNT 
ARDY ,@RHCS1 
7$ 


BITCNT 
18$ 


BITCNT 
ARDY, @RHCS1 
7$ 

BITCNT 

7$ 

19$ 


@RH(S1,CS1 
@RHWC , WC 
@RHBA ,BA 


t2 RETREAT EERE EERE 


SETUP UNIT SEVEN 
SETUP INFORMATION 
SETUP DIAG. MODE 
;FOR ONE WORD 
:IS_IT A 11 OR 70 
z1T'S AN 11 
ZERO BAE 


SETUP BA 
:TELL IT TO WRITETO 
MANIPULATE CLOCK 
:CLEAR LOOP COUNTER 
: INCREMENT LOOP COUNTER 
:1S IT THIRD LOOP FOR SUSEC WAIT 
[NO LOOP AGAIN 
START CHANGING CLOCK 
;CHANGE CLOCK AGAIN 
; CHANGE CLOCK AGAIN 
;CHANGE CLOCK AGAIN 
SGET OUT OF DIAG MODE 
;CLEAR BIT COUNTER 
:IS_RDY SET 
BIT IS SET 


COUNT UP 

:NOT FINISHED COUNTING 
:GET READY TO DO IT AGAIN 
1S 17 SET YET? 


COUNT UP 
:BIT IS NOT GOING TO SET 


: SAVE RHCS1 

SAVE WORD COUNT 
SAVE BUS ADDRESS 
71S IT AN RH11 
iNO_ IT'S A 70 
CLEAR BAE 


SEQ 0118 
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CZ7RHBE .P11 *O7=JUN-79 13:4 173 RH OPERATIONAL WRITE TEST #4 SEQ 0119 
6195 3254 005037 003424 CLR CS$3 CLEAR CS3 
6136 043260 000137 3300 JMP 86$ : INUE 
6197 3264 017737 140070 003416 878: MOV @RHBAE , BAE SAVE BUS ADDRESS EX7ENSION 
6198 043272 017737 14 003424 MOV @RHCS3,CS3 ;SAVE RHCS3 
6199 043300 017737 140034 003422 86$: MOV @RHCS2,CS2 ;SAVE CS2 
6200 043306 017737 140030 003432 MOV @RHST ,DS1 ;SAVE TESTER STATUS 
6201 043314 017737 140024 003436 MOV @RHER ,ER1 SAVE ERROR REGISTER 
6202 043322 017737 140022 003442 MOV @RHTDB, ret SAVE TESTER DATA REG. 
6203 043330 017737 140002 003440 MOV @RHMR2 , T SAVE MR2 4 P saat 
6204 043336 017737 140006 001162 MOV SRHTDA. $REGO GET DAT 
6205 043344 032777 000200 137756 BIT ARDY ,@RHCS1 :1S READY SET 
62 043352 001001 BNE 8$ :YES,CONTINUE TEST 
6207 043354 10410 ERROR 102 READY DID NOT SET 
6208 043356 022777 177777 137746 8$: MP #-1 , @RHWC :DID WC INCREMENT 
6209 043364 00100 E :YES,CONT TEST 
6210 043366 104140 : ERROR 140 :WRITETO OPERATION DID NOT INC WC 
6211 043370 022777 003776 137736 3$: CMP #EVENAD=2 , @RHBA :DID BA INCREMENT 
6212 042376 001401 BEQ 4$ YES CONT TEST 
6213 0434 104141 ERROR 141 :BA DID NOT INCREMENT AFTER AN WRITETO OPERATION 
6214 043402 023777 004000 137740 4$: CMP EVENAD ,@RHTDB :DID INFO WRITETO TESTER 
6215 043410 001401 BEQ 5$ 7YES,CONT 
6216 043412 104142 ERROR 142 INFO DID NOT WRITETO even 
6217 043414 004737 007224 5$: JSR R7 ,WHYFO SARE ANY ERROR BITS SET 
6218 043420 105737 001103 TSTB SERFLG zWAS THER AN ERROR 
6219 043424 001402 BEQ 6$ 3NO EXIT TEST 
6220 043426 104146 ERROR 146 [THESE ARE THE CONTENTS OF ALL RH70 REG. 
6221 043430 104170 ERROR 170 THIS IS TO COMMPLETE ERROR PRINTOUT 
6222 043432 004737 006572 6$: JSR R7,CLEER ;CLEER ERRORS IF ANY 
6223 043436 904737 050210 JSR R7,ERRTST 
6224 SITE AARA RE RRERERAREERE EEE 
6225 i*TEST 74 WRITE OPERATIONAL TEST (NORMAL) #4 
6226 :*THESE TESTS VERIFY ALL READ AND WRITE CODES 
6227 :*WHETHER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
6228 :*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
oc88 :*NO ERRORS SHOULD OCCUR 
6231 ° PEER E EK KEEEEKREREKEEEEEKEEKEEEEREEEEERKEEKEEKEKEREEKREKE KER Re 
6232 043442 000004 1S174: SCOPE 
6233 043444 012777 000007 137666 MOV #7 ,@RHCS2 SETUP UNIT SEVEN 
62 043452 012777 177777 137652 MOV 4-1 , ARHWC :FOR ONE WORD 
6235 043460 012777 004100 137646 MOV #RBUF , (RHBA :SRTUP BA 
6236 043466 012737 125252 004100 MOV #OAB , RBUF :SETUP DATA 
6237 3474 012777 000000 137646 MOV #ZERO,@RHTDB :SETUP TESTER DB 
6238 043502 005701 TST R1 71S IT AN 11 OR A 70 
6239 3504 100403 BMI 1$ 31T'S AN RH71 
6240 043506 012777 000000 137644 MOV #ZERO,@RHBAE ZERO BAE 
6241 043514 012777 000067 137606 1$: MOV AWRITE6,@RHCS1 :TELL IT TO WRITE6 
6242 043522 005037 003446 CLR BITCNT [CLEAR BIT COUNTER 
6243 043526 032777 000200 137574 18$: BIT ARDY ,@RHCS1 :1S_RDY SET 
6244 043534 001015 BNE BIT IS SET 
6245 043536 005237 003446. INC BITCNT : COUNT UP 
6246 043542 001371 BNE 18$ [NOT FINISHED COUNTING 
6247 043544 005037 003446 CLR BITCNT GET READY TO ee IT AGAIN 
6248 043550 032777 000200 137552 19$: BIT ARDY ,@RHCS1 sIS_IT SET YET? 
6249 043556 001004 BNE S 
6250 043550 005237 003446 INC BITCNT 


COUNT UP 
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CZRHBE .P11 *O7=JUN-79 13:4 174 WRITE OPERATIONAL TEST (NORMAL) #4 SEQ 0120 


001401 2$ :BIT IS NOT GOING TO SET 
000770 BR 19$ 


017737 003420 @RHCS1,CS1 ;SAVE RHCS1 
003444 ‘ + SAVE WORD COUNT 
003414 MO - SAVE 7. ADDRESS 
R1 71S IT AN RH11 
*NO IT'S A et 
ZCLEAR BAE 
;CLEAR CS3 
$ ; CONT INUE 
003416 - @RHBAE , ;SAVE BUS ADDRESS EXTENSION 
aRHCS3. (S3 : RHCS3 
@RHCS2,CS2 ; CS2 
@RHST,DS1 2 TESTER STATUS 
@RHER,ER1 2 ERROR REGISTER 
@RHTDB,TDR . TESTER DATA REG. 
@RHMR2,TC _ MR2 TESTER REG. 
@RHTDB, $REGO :GET DATA 


RERRERRRRRRRRRRKEKR 


Sania 


137410 


137412 


ARDY ,@RHCS1 
3$ 


102 
R7,WHYFO 


:IS OR SET 
:YES RDY IS SET 


READY DID NOT SET 
SARE ANY ERRORS SET 
:DID INFO GET WRITTEN OR READ 


004700 RBUF , ARHTDB 
4$ : INFO GOT LOADED 


137404 ~  @RHTDB ;DOES @RHTDB = 0 
5$ :YES INFO DID NOT LOAD 
117 zALL BITS DID NOT LOAD DURING 
7 AN gs OPERAT ION 
043756 JMP $ sEXIT TEST 
: [WRITE6 OPERATION DID NOT WORK 
:NO BITS WHERE LOADED TO @RHTDB 
007224 ; ANY ERRORS SET 
001103 ANY ERRORS ? 
E 6$ sNO,EXIT TEST 
zPRINT REGISTERS 


; 
006572 : . ;CLEAR ERRORS 
004737 050210 R7,ERRTST 
. RO? ee ampere no aie 
T*TEST 75 H OPERATIONAL READ TEST 44 
3 * THESE Tests VERIFY ALL READ AND WRITE CODES 
7 *WHE THER IT BE A READ REV. OR FWD OR A WRITE REV. OR FWD 
:*DURING THESE TESTS THE TESTER TIMING IS MARGINED AND 
:*NO ERRORS SHOULD OCCUR 


Tn yi ea rt cel athe ane it. 
TST75: 
000007 MOV #7, yt 
052525 #AB, aR HTDB ;SETUP INFORMATION 
000003 #DMD'MCLK, @RHMR 1 sSETUP DIAG. MODE 
177777 2 MOV 4-1, @RHWC :FOR ONE WORD 
ih it ITA Roi OR 70 


SETUP UNIT SEVEN 


1$ 
000000 » AZERO, (RHBAE 
004000 i : ME VENAD , @RHBA 
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CZRHBE .P11 O7=JUN@=79 13:44 175 RH OPERATIONAL READ TEST # SEQ 0121 
6307 044056 012777 000077 137244 MOV #READ6, ARHCS1 :TELL_IT TO READFROM 
6308 044064 012777 000001 137262 MOV #DMD , ARHMR 1 [MANIPULATE CLOCK 
6309 044072 005037 003446 CLR BITCNT ;CLEAR LOOP COUNTER 
6310 044076 005237 003446 2$: INC BITCNT : INCREMENT LOOP COUNTE 
6311 044102 022737 000015 003446 CMP #15,BITCNT :IS IT THIRD LOOP FOR SUSEC WAIT 
6312 044110 001372 BNE 2$ :NO LOOP AGAIN 
6313 044112 012777 000003 137234 MOV #DMD !MCLK ,@RHMR 1 START CHANGING CLOCK 
6314 064120 012777 900001 137226 MOV ADMD , ARHMR 1 ; CHANGE CLOCK AGAIN 
6315 044126 012777 000003 137220 MOV ADMD !MCLK ,@RHMR1 ANGE CLOCK AGAIN 
6316 044134 012777 000001 137212 MOV 4DMD , ARHMR 1 ; CHANGE itock AGAIN 
6317 044142 012777 000000 137204 MOV #ZERO,a@RHMR1 GET OUT OF DIAG MODE 
6318 044150 0905037 003446 CLR BITCNT CLEAR BIT COUNTER 
6319 044154 032777 000200 137146 188: BIT ARDY ,@RHCS1 71S _RDY SET 
6320 044162 001015 BNE 7$ :BIT IS SET 
6321 044164 005237 003446 INC BITCNT > COUNT UP 
6322 044170 001371 BNE 18$ NOT FINISHED COUNTING 
6323 044172 005037 003446 CLR BITCNT :GET READY TO dO IT AGAIN 
6324 044176 032777 000200 137124 19%: BIT #RDY ,@RHCS1 sid 5 SET vet 
6325 044204 001904 BNE 7$ ZYES 
6326 044206 005237 003446 INC BITCNT ; COUNT . 
6327 044212 001401 BEQ 7$ :BIT IS UNOT GOING TO SET 
6328 044214 000770 BR 19$ , 
6329 044216 7$: 
6330 044216 017737 137106 003420 MOV @RHCS1,CS1 SAVE RHCS1 
6331 044224 017737 137102 003444 MOV @RHWC , WC SAVE WORD COUNT 
6332 044232 017737 137076 003414 MOV @RHBA ,BA SAVE BUS ADDRESS 
6333 044240 005701 TST R1 31S IT AN RH11 
6334 044242 001406 BEQ 87$ :NO IT'S A 70 
6335 044244 005037 003416 CLR BAE CLEAR BAE 
6336 044250 005037 003424 CLR CS3 CLFAR CS3 
6337 044254 000137 044274 JMP 86$ 5 af UE 
6338 044260 017737 137074 003416 87$: MOV @RHBAE ,BAE :SAVE BUS ADDRESS EXTENSION 
6339 044266 017737 137070 003424 MOV @RHCS3.CS3 SAVE R RHCS3 
6340 044274 017737 137059 007422 &6$: MOV @RHCS2,0S2 sSAVE CS2 
6341 044302 017737 1370346 003432 MOV @RHST ,DS7 SAVE TESTER STATUS 
6342 044310 017737 137030 903436 MOV @RHER ,ER1 SAVE ERROR REGISTER 
6343 044316 017737 137026 003442 MOV @RHTDB, TDR SAVE TESTER DATA REG. 
6344 044324 017737 137006 003440 MOV @RHMR2 , TC SAVE MR2 TESTER REG. 
6345 044332 017737 137012 001162 MOV @RHTDB, $REGO :GET DATA 
6346 044340 032777 000200 136762 BIT ARDY ,@RHCS1 :1S READY SET 
6347 044346 001001 BNE 8$ > YES, CONTINUE TEST 
6348 044350 104102 ERROR 102 READY DID NOT SET 
6349 044352 022777 177777 136752 8S: CMP &~1 ,aRHWC :DID WC a“ 
6350 044560 001001 BNE 3$ :YES,CONT TEST 
6351 044362 104143 ERROR = 143 :READF ROM Atoll DID NOT INC wC 
6352 044364 022777 003776 136742 3$: CMP #EVENAD~2 ,@RHBA [DID BA INCREMENT 
6353 044372 001401 BEO 4$ :YES CONT TEST 
6354 044374 104144 ERROR 144 [BA DID NOT INCREMENT AFTER AN READFROM OPERATIO 
6355 044376 023777 004000 136744 4%: CMP EVENAD , @RHTDB sole we READFROM TESTER 
6356 044404 001401 BEG 5$ 
6357 044406 104145 ERROR 145 INFO DID NOT re oe TESTER 
6358 044410 004737 007224 5$: JSR R7 ,WHYFO . SARE ANY ERROR BITS SET 
6359 044414 105737 001103 TSTB SERFLG :WAS THER AN ERROR 
6360 044420 001402 BEQ 6$ 3NO EXIT TEST 
6361 044422 104166 ERROR 146 THESE ARE THE CONTENTS OF ALL RH70 REG. 
6362 044424 104170 ERROR 170 THIS IS TO COMMPLETE ERROR PRINTOUT 
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C7RHBE P11 QO7=jUN=79 13:44 75 RH OPERATIONAL READ TES SEQ 0122 
6363 044426 006737 006572 63: JSR R7,CLEER ;CLEER ERRORS IF ANY 
6364 0446432 004737 050270 JSR R7,ERRTST 
6365 SLUR ORE EEEEE RARE RERE ER EEEREREEAREREREREREEEREERREERREE ERROR ED 
6366 TeTEST 76 LARGE TRANSFER TEST 
6367 : THIS TEST DOES A 4K (OCTAL) WORD TRANSFER 
6368 3 THE SECOND TIME THROUGH THE TEST SYNC CLOCK 
6369 31S MARGINED 10 MAKE SURE NO ERRORS OCCUR 
6370 . PORCH CERO RENERERRRERERERREeHReHRARRAAheReRRakeneReeteenereees 
6371 044436 000004 +5176: SCOPE 
6372 
6373 
6374 066440 012777 000007 136672 MOV #7 ,ARH(S2 
6375 044446 905037 177776 CLR aFPSw 
6376 044452 005037 003452 CLR PASS 
6377 044456 005037 003450 BLITZ: CLR LOOCNT :CLEAR THE LOOP COUNTER 
6378 044462 005701 IN: TST a 71S IT AN 11 OR 79 
6379 044464 10060 Z BM! 1$ 717 1S AN 11 
6380 044466 072777 000000 136664 MOV #ZERO,@RHBAE zI1T*S A 70 ZERO THE BAE 
6381 044474 012777 005000 136632 1$: MOV #5000,@RHBA 3SET THE BUS ADDRESS 
6382 044502 012777 174000 136622 MOV #-4000, aRHwC 
tH 044510 012777 050334 136670 MOV WBLKTST aVvECADD ;USE IT IN INTERUPT MODE 
6 
6385 044516 005701 TST R1 
6386 044520 001412 BEQ BLIP 
6387 044522 005737 003452 TST PASS 
6388 044526 001407 BEQ BLIP 
6389 044530 032737 000002 177570 BIT #B1T1,94177570 
6390 044536 001571 BEQ BOT TOM 
6391 044540 004737 047624 JSR eal bUPORT 
6392 044544 0004634 BR HNIN 
arat 044546 012777 000161 136554 SLIP: MOV PURI TEO! IE ,@RHCS7 7SET INTERUPT AND TELL IT TO WRITE 
6395 044554 005037 003446 CLR BITCNT :CLEAR BIT COUNTER 
6296 044560 032777 000200 136542 188: BIT #RDY ,@RHCS1 sIS_ RDY SE! 
6397 044566 001015 BNE 2$ :BIT IS SET 
6398 044570 005237 003446 INC BITCNT COUNT UP 
6399 044574 001371 BNE 18$ :NOT FINISHED COUNTING 
6400 044576 005037 003446 CLR BITCNT :GET READY TO DO IT AGAIN 
6401 044602 032777 000200 136520 19$: BIT ARDY ,@RHCS1 1S Ev SET VET? . 
6402 044610 001004 BNE 2$ ZYES 
6403 044612 005237 003446 INC BITCNT : COUNT UP 
6404 044616 001401 BEQ 2$ :BIT IS NOT GOING TO SET 
6405 044620 000770 BR 19$ 
6406 044622 28: . 
6407 044622 032777 000200 136500 BIT #RDY ,ARHCSi :DID READY SET 
6408 044630 001001 BNE 25% * sYES READY SET 
6409 044632 104102 ERROR 102 ZREADY DID NOT SET 
6410 044634 104205 25$: ERROR 205 :1T DID NOT INTERUPT 
6411 044636 RHNINT: ; 
6412 044636 017737 136466 003429 MOV @RHCS1,CS1 ;SAVE RHCS1 
6413 044644 017737 136462 003444 MOV @RHWC , WC ;SAVE WORD COUNT 
6414 044652 017737 136456 003414 MOV @RHBA ,BA 7 SAVE BUS ADDRESS 
6415 044660 005701 TST R1 71S IT AN RH11 
6416 044662 001406 BEQ 87$ NO IT'S A 7G 
6417 044664 005037 003416 CLR BAE iCLEAR BAE 
6418 044670 005037 003424 CLR CS3 SCLEAR CS3 


G 10 
MASSBUS RH70 AND RH11 ey ord vk SOA(1052) te=JUL=79 10:46 PAGE 124 
CZ7RHBE .P11 O7=JUN=79 13:4 LARGE TRANSFER TEST SEQ 0123 


044674 86$ ; CONT INUE 
003416 3 @RHBAE , BAE SAVE BUS ADDRESS EXTENSION 

@2HCS3,0S3 ;SAVE RHCS3 
@RHCS2,0S2 sSAVE CS2 
@RHST,DS1 SAVE TESTER STATUS 
@RHER ,ER1 SAVE ERROR REGISTER 
@RHTDB, TDR : 
@RHMR 2, 


\ TC 
136362 : #ATA'ERR, @RHST . 
3$ YES THERE WAS A PROBLEM 
136340 #RDY ,@RHCS1 “DID RDY SET . 
43% sves 27 SEF 


E 192. sRDY DID NOT SET 
015000 136332 : CMP oS Wetec delat eee BA INC PROPERLY 
:¥ 


203 3BA DID “NOT INC PROPERLY 
014776 136334 : : indi agatti WAS CORRECT INFO WRITTEN 


YE 
2 sCORRECT INFO NOT IN RHTDB 
136306 o$: :1S Ww we 0 


YES 
r4 SRHWC IS NOT ZERO 
001103 S: : ; zWAS THERE ANY ERRORS 


sNO 
002000 136264 


5 sOUTPUT THE REGISTERS 
003450 : zIS IT FIRST PASS IN TEST 
: 11$ =NO 
003450 sMAKE IT SECOND PASS 


000017 

ZSET THE SYNC CLOCK BIT AND 441 BLK SIZé 
044462 N :DO THE TEST AGAIN 
eres 11$: ‘ CLEAR THE COUNTER 


003452 


3TO SEE WHY IT DIED 
cle CLEAR THE REGISTERS 
050210 _ R7,ERRTST UNDERLINE ERROR MESGES 
zIF NEEDED 
° UT IIIT ISI SISIST TIT TT TTI TITTTITITITIT TTT TTT TTT TTT TT TTT TTT TTT 
T*TEST 77 HERE IS WHERE I HANDLE 4 RH'S 
sTHIS IS THE ROUTINE THAT ALLOWS THE 
D*THE DIAGNOSTIC TO TEST FOUR RH'S 


° -enedeneeetdeeeeeensen6eneeseeeeeeseeeenseeseseeesenssnnesoseess 


000004 1S177: SCOPE 


045140 005237 003376 “ —_ ENDPAS: DEVCNT INCREMENT. THE DEVICE COUNT, 
000001 003376 C Hee} eee 4 Ry DEVICE 2 
CLEV 
000002 003576 ( #2 ,DEVCNT 1S IT DEVICE 3 
045162 001002 1$ 
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6475 045164 000137 045604 JMP ROTEEN :YES 
6476 045170 022737 000003 003376 1$: CMP #3,DEVCNT IS IT DEVICE 4 
6477 045176 001002 BNE 2$ :NO, CONTINUE SEARCH 
6478 045200 000137 045710 JMP IS VES 
6479 045206 022737 000006 003376 2%: C a4 ,DEVCNT ; HAVE WE TESTED ALL 4 RH'S 
6480 045212 001470 ‘ BEQ RESTAT YES 
6481 045214 104401 065222 TYPE 65% pbb Acid STRING 
6482 045220 000421 BR 64$ GET OVER THE ASCIZ 
6483 : 7:65: .ASCIZ <15><12>/PROGRAM ERROR ON TESTING 4 RH'S/ 
6484 045264 64%: 
6485 045264 104401 045272 TYPE 07S 3; TYPE ASCIZ STRING 
6486 045270 000426 ®R 663 “GET OVER THE ASCIZ 
6487 226782 * .ASCIZ <15><12>/RESTART ING TO TEST RH #1 AT BASE ADDRESS / 
6488 045346 66%: 
6489 045346 013746 003366 MOV DEVIC1,=(SP) 72SAVE DEVIC1 FOR TYPEOUT 
6490 645352 104402 TYPOC 7:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
6491 045354 013737 003366 903400 MOV DEVIC1,DEVICS 7FOR REG. ADDRESS CREATION 
6492 045362 012737 005246 003410 MOV #GIGO,RETAIN ; ;GET ADDRESS ERROR RETURN 
6493 045370 000137 046014 JMP CORREG sCORRECT REG. ADDRESSES 
6494 045374 005037 003376 Rt STAT: CLR DEVCNT :CLEAR DEVICE COUNTER 
6495 5400 005726 TST (SP) + ; CORRECT STACK 
6496 045402 013737 003366 . 003400 MOV DEVIC1,DEVICS ;SET UP TO CREATE ADDRESSES 
6497 045410 106401 0454176 TYPE ,65$ 22 TYPE ASCIZ STRING 
6498 045414 000421 BR 64$ ;GET OVER THE ASCIZ 
6499 3765$: .ASCIZ <15><12>/TESTING RH #1 AT BASE ADDRESS / 
6500 045460 645: . 
6501 045460 013746 003366 MOV DEVIC1,=-(SP> 32SAVE DEVIC1 FOR TYPEOUT 
6502 045464 104402 TYPOC 32GO TYPE=-OCTAL ASCII(ALL DIGITS? 
6503 045466 012737 005246 003410 MOV #GIGO,RETAIN ;SAVE RETURN ADDRESS 
6504 045474 000137 046074 JMP CORREG . :GO CREATE ADDRESSES 
6505 045500 005737 003370 CLEVER: TST DEVIC2 sis if @ 
6506 045504 001733 BEQ RESTAT :YES,END PASS 
6507 045506 013737 003376 003400 MOV DEVIC2,DEVICS ;GET READY TO CONSTRUCT 
6508 045514 012737 005422 003410 MOV 4G1GO1, RETAIN ;SAVE RETURN ERROR ADDRESS 
6509 045522 104407 045530 TYPE ,05$ TYPE ASCIZ STRING 
6510 045526 000421 BR 64$ :GET OVER THE ASCIZ 
6511 37658: .ASCIZ <15><12>/TESTING’ RH #2 AT BASE ADDRESS / 
6512 045572 64$: 
6513 045572 013746 003370 MOV DEVIC2,-(SP) net DEVIC2 FOR TYPEOUT 
6514 045576 104402 TYPOC ;GO TYPE=-OCTAL ASCII‘ALL DIGITS) 
6515 045600 000137 046014 JMP CORREG s CREATE REG. ADDRESSES 
6516 045606 005737 003372 ROTEEN: TST DEVIC3 21S IT 
6517 045610 001671 BEQ RESTAT 7YES ,END PASS 
- 6518 045612 013737 003372 003400 MOV DEVIC3,DEVICS ;GET BASE ADDRESS 
6519 045620 012737 005562 003410 MOV #G1G02,RETAIN SAVE RETURN ADDRESS 
6520 045626 104401 045634 TYPE ,65$ ey ASCIZ STRING 
6521 045632 000421 BR 64$ 3GET OVER THE ASCIZ 
6522 5:65: .ASCIZ <15><12>/TESTING RH #3 AT BASE ADDRESS / 
6523 045676 64%: 
6524 045676 013746 003372 MOV DEVIC3,=(SP) S2SAVE DEVIC3 FOR TYPEQUT 
6525 045702 104402 TYPOC 32G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
6526 045704 000137 046014 JMP CORREG eo erik: REG. ADDRESSES 
6527 045710 005737 0033574 IS: TST DEVICS 21S IT 0 
6528 0465714 001627 BEQ RESTAT ;YES END PASS 
6529 045716 013737 003374 003400 MOV DEVIC4, DEVICS ZGET BASE ADDRESS 


6530 065724 012737 005722 003410 MOV #61693. RETAIN SAVE RETURN ADDRESS 





I 10 
MASSBUS RH70 AND W711 DIAGNOSTIC mat v7 30A(ICS2) 12=JUL=79 10:66 PAGE 126 
CZRHBE P17 O7*sUN=79 13:46 77 WERE IS WHERE | HANDLE 4 RH'S SEQ 0125 


045732 106401 045740 ,65$ TYPE ASCIZ STRING 
045736 000421 64$ GET OVER THE ASCIZ 
<15><12>/ TESTING’ RH #4 AT BASE ADDRESS / 


013746 003374 MOV DEVIC4,=(SP) SAVE DEVIC4 FOR TYPEOUT 
G0 TYPE*-OCTAL ASCII(ALL DIGITS) 
046014 . CORREG CORRECT REG. ADDRESSES 
003402 (CORREG: DEVICS,OFF11 :GET BASE ADDRESS 
#RHCS1,R2 ZGET ADDRESS TO START STORING 
BEHIND: MO\ OFF 11, (R2)+ STORE ADDRESS 
poy WAS IT LAST ADDRESS 


AH YES 
003402 #TWO,OFF 71 ZCREATE NEXT ADDRESS 
; J BEHIND :GO STORE IT 
003402 DEVICS ,awOFF 11 
REGEND OFF 11 ;SETUP BAE ADDRWESS 
OFF 71, RHBAE [STORE ADDRESS 
#2,0FF11 SETUP CS3 ADDRESS 
OF F11,RHCS3 SAVE THE ADDRESS 
003364 RHCS1-°RH(S1B :SETUP HIGH BYTE 
! C518 [FOR RHCS1 
[CLEAR TEST NUMBER 
:SET TO TEST 1 
001212 MO [FOR ONE ITERATION 
003376 TARE WE AT END OF PASS 
:YES DO END OF PASS 
046146 000137 006252 STADD :NO,SEE IF RH IS PRESENT 
“SBTTL END OF PASS ROUTINE 


SII RTI RIO III III OOOO III TOI OO TOD tk nik 
+ * INCREMENT THE PASS NUMBER ($PASS) 

z*TYPE “SND PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yvyvyy'' 
+ #WHERE XXXKK AND YYYYY ARE DECIMAL NUMBERS 

i*IF THERES A MONITOR GO TO IT 

s*1F THERE ISN'T JUMP TO BEGIN 


046152 SEOP: 


000004 

5037 001102 ; $TSTNM ZERO THE TEST NUMBER 
001212 $TIMES ZERO THE NUMBE 2 OF ITERATIONS 
061100 $PASS te al THE PASS NUMBER 
100000 001100 #100000, $PASS enw ALLOW A NEG. NUMBER 


DE (PC) + 
SEOPCT: 1 

B $DOAGN ssYes 
pret OE ZcRESTORE COUNTER 


mM 
SENDCT: . 
$ 


046220 TYPE i TYPE ASCIZ STRING 
046216 BR 64$ SIGET OVER THE ASCIZ 


<12><15>/END PASS &/ 
046236 


046236 013746 001100 \ $PASS,-(SP) SAVE $PASS FOR TYPEQUT 

ZI TYPE PASS NUMBER 
046242 104405 i 22GO_TYPE=-DECIMAL ASCI! WITH SIGN 
046244 106401 . 046252 67% ceTYPE ASCIZ STRING 
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CZRHBE P11 
046250 


046362 
046370 


046602 


000421 


013746 


000240 


000137 
004166 
77 


3 
046362 


032737 
001155 


032737 
091151 
032737 


001446 


13:44 


001112 


001223 
001112 
000042 


020000 


000400 


000001 


003446 


001204 
046454 


000001 


001204 
000017 


003446 
003446 


001200 
001202 


177570 


177570 


177570 


001202 
001204 
001204 


001204 


003446 


001202 


MACY11 
END OF 


-67$: 


560 
66$: 


$GE 142: 
SENDAD: 


$DOAGN: 


$RINAD: . 
SENULL: 


J 10 
10:46 PAGE 127 


S$0A(1052) 12=JUL=79 
PASS ROUTINE 
66$ 
/ TOTAL ERRORS 
SERTTL,=(SP) 


a(PC)+ 
BEGIN2 
-1,°1,0 


GET OVER THE “a 
SINCE LAST REPORT / 


:-SAVE SERTTL FOR TYPEOUT 

3; TOTAL NUMBER OF ERRORS 

+360 TYPE==DECIMAL ASCII WITH SIGN 
s TYPE CARRIAGE RETURN, LINE FEED 

CLEAR E ERROR TOTAL 
GET MONITOR ADDRESS 

::SRANCH IF NO MONITOR 

3iCLEAR THE WORLD 

::GO TO MONITOR 

;;SAVE ROOM 


zc FOR 

2gACT11 

ZZRETURN 

szNULL CHARACTER STRING 


STEER EERE REE EERE EERE EKER EEK ERE AREER KEEKEKER EEE 


THIS IS THE WATBIT PROGRAM 


PORTER EERE REE EERE REE EERE REE EERE ERE REE REE 


#SW13,04177570 
BNE RI TURN 


. 
bd FURR RRR ERE REE RE EEE EERE REE EKER EERE RRR EERE RR 


CHGE2: BIT #B118,a04177570 


p SHRARAAAARAAERRAREAAERAARRARARRERARERERERRARERRERAERRREERREARD 
' 


BNE RI TURN 


e PiclielialialialiaNalielclalalelalehaiaheieleiehehelelcicielelslelel:talaialelelehshslalelelalelshelshahelalelelshelelstetaleletehehel 


CHGE 3: BIT #B1T0,a4177570 


FREER ERE REET 


WATBIT: BIT oe ERROR PRINTOUT ? 


B 
NEXTST: 


RITURN 
BITCNT 
$REGO,STMP2 
$TMP] ,STMP3 
$REGO,$TMP3 
$TMP3 


NEXTST 
65$ 


’ 


:CLEAR BIT COUNTER 
SAVE GOOD DATA IN $REGO 
SAVE CONTENTS OF BAD DAA 
:FIND OUT EXTRA BITS SET ? 

N 


$ OUT 
FIND OUT WHAT BITS WHERE NOT SET 
ph bney Ray, STRING 
OVER THE ASCIZ 


64$ 3GET 
<15><12>/THESE ARE THE BIT NO. OF THE EXTRA BITS./<15><12> 


#ONE , $TMP3 
PRIBIT 


$TMP3 
#17,BITCNT 
NEXTST 
BITCNT 

AR 


BITCNT 
$TMP1 ,$TMP2 
$TMP2 
RE TURN 


:FIND THE EXTRA 
:GO TO PRINT BIT NO. 
;SETUP FOR NEXT BIT 
iI IT BIT 15 LAST TESTED 
;YES,SEE IF ANY BITS WHER NOT SET 
:NO NOT LAST BIT YET 
:GO TO TEST NEXT BIT 
:ZERO BIT COUNTER 
FIND WHAT BITS WHER NOT SET 
:WAS ALL BITS SET-THAT SHOULD HAVE BEEN 
:YES,AND TEST FINISHED 


SEG 0126 
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104401 046612 TYPE -65$ ei ASCIZ STRING 
000426 BR 64$ 73GET OVER THE ASCIZ 
t ig? eASCIZ  <15><12>/BIT NO. OF THE BITS THAT WHERE NOT SET/<15><12> 
bi 
032737 000001 001202 MORE2: BIT HONE ,$TMP2 :F IND BIT NOT SET 
BNE PRIBIT 
001202 MORE: ROR $TMP2 S 
000017 003446 CMP #17,BITCNT sWAS LAST BIT BIT 15 
BEQ RE TURN YES AND TEST FINISHED 
003446 INC F [NO SETUP FOR NEXT BIT 
BR CONTINUE TEST 
104401 001223 RETURN: TYPE 
RETURN TO MAIN PROG. 


000207 RITURN: RTS 
PRIBIT: | 
013746 003446 MOV BITCNT,=(SP) zzSAVE BITCNT FOR TYPEOUT 
104405 TYPDS ; 3:GO TYPE=-DECIMAL ASCII WITH SIGN 
000760 aente BR MORE LOOK FOR MORE 
013746 003446 MOV BITCNT,-(SP) : : SAVE BITCNT FOR TYPEOUT 
104405 TYPDS 72GO TYPE=-DECIMAL ASCII WITH SIGN 
0006 76 he MOOR LOOK FOR MORE 


STREAK REE EERE REE REE EEK ERE 


THIS ROUTINE HANDLES TIMEOUT ERRORS 


CLE RRR RRR RK KERR ERR EEE KER EEE EEERER EERE 


; TIEOUT: 
104401 046754 - . TYPE ,65$ 23 TYPE ASCIZ STRING 
0004 34 BR 64$ :GET OVER THE ASCIZ 
Tae ‘ <15><12><12>/PROGRAM INSTRUCTION OR ADDRESS HAS CREATED A TEMEQUT/ 
104401 047052 ,67$ 2s TYPE ASCIZ STRING 
000422 BR 66$ ;GET OVER THE ASCIZ 
ue ‘ <15><12>/ADDRESS- WHICH CAUSED TIMEOUT WAS / 


012637 001206 (SP)+, $TMP4 sMOVE ADDRESS TO STORAGE 
000002 001206 #TWO,STMPS ;CORRECT ADDRESS 
001206 , - $TMP4,-(SP) 32 SAVE $TMP4 FOR TYPEOUT 
37GO TYPE=-OCTAL ASCII(ALL DIGITS) 
047144) ,09$ 72 TYPE ASCIZ STRING 
6 3iGET OVER THE ASCIZ 
<15><12>/PSW WAS / 


001206 (SP)+,$TMP4 :GET OLD PSW 
001206 . MOV $TMP4 ,-(SP) 7SAVE $TMP4 FOR TYPEOUT 
$260 TYPE=-OCTAL ASCII(ALL DIGITS) 
001106 ; $LPADR, (SP) FAKE RETURN 
000002 E 


CDRA 


THIS ROUTINE HANDLES PARITY ERRORS 


DIO IIIDIOIIIDIOIIIOIOIIIIOIIOIUIDICUIOIDIOIIOIOIIUIOIOIUIOIOIUOIOIIOIOI IOI IIOIOR tok 
PARITY: 

104401 047206 TYPE 65% cs TYPE ASCIZ STRING 

000422 BR 64% 3GET OVER THE ASCIZ 
33658: .ASCIZ = <15><12>/PARITY TRAP TO VECTOR ADDRESS 114/ 
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CZ8HBE.P11 
047252 


047674 


104401 
000420 


012637 


000417 


013737 


000416 


013737 


000417 


013737 


000002 


012777 


001401 


047260 


00 
0C0002 
(04100 


047346 


004100 
004100 


047406 


177742 
004100 


047466 


177740 
004100 


047544 


177744 
004,00 


001106 


002161 
003446 
000200 
003446 


003446 
000200 


003446 


004106 


004100 


MACY11 
END OF 


é 
004100 | 


004100 


133476 
133464 


133442 


30A(1052) 


L 10 
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PASS ROUTINE 


T 
TRAPED: 
R 


,67$ abies ASCIZ STRING 
66$ 3GET OVER THE ASCIZ 
<15><12>/ADDRESS THAT CAUSED TRAP WAS / 


(SP) + ,RBUF sGET PC+2 
#TWO,RBUF sCORECT PC 
RBUF ,=(SP) 2 3 SAVE RBUF FOR TYPEOUT 

O TYPE=-OCTAL ASCII(ALL DIGITS) 
69% :3 TYPE ASCIZ STRING 
68$ sGET OVER THE ASCIZ 
<15><12>/PSwW WAS / 


(SP) +, RBUF :GET OLD PSW 
RBUF = (SP) see RAUF FOR TYPEOUT 

'GO TYPE=-OCTAL ASCIICALL DIGITS) 
R1 { GARE WE ON AN 11/70 
TRAPED NO.ITS A 11/05=11745 
_71$ 1 TYPE ASCIZ STRING 
70$ ET OVER THE ASCIZ 
<15><12>/HIGH chhan’ ADDRESS REG. = / 


HERADD , RBUF 
RBUF ,=(SP) SAVE RBUF FOR TYPEOUT 
£360 TYPE=-OCTAL ASCII(ALL DIGITS) 


73 ;TYPE ASCIZ: STRING 


72$ 7GET OVER THE ASCIZ 
<15><12>/LOW ERROR ADDRESS REG. = / 


LERADD , RBUF 
RBUF,-(SP) °*  ;;SAVE RBUF FOR TYPEOUT 

: 3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
sis : STRING 


t 
<15><12>/MEMORY SYSTEM ERROR REG. = / 


MEMERR ,RBUF 
RBUF ,~(SP) 32SAVE RBUF FOR TYPEOUT 
72GO TYPE--OCTAL ASCII(ALL DIGITS) 
$LPADR, (SP) FAKE RETURN 
SRETURN WHERE LEFT OFF 


/ 


SF RK RK KK KEE EEE REE KEE EK ER 


:THIS IS THE DUAL PORT ROUTINE 


DG AUSSI OIG IEIIOI ISIE IOIUIUIIIUIIOIOIOIUO OOD i ionit 


bUPORT: 
18$: 


MOV 


MWRITEO!PSEL!IE,@RHCS1 
BITCNT i a Seley COUNTER 


ARDY ,@RHCS1 :IS_R 


:BIT 15 SET 


BULL 

BITCNT + COUN iP... 

18$ iNOT FINISHED COUNTING 
BITCNT 3GET READY TO fe IT AGAIN 
ARDY ,@RHCS1 :IS IT SET YET? 

BULL : ES 

BITCNT ;COUNT UP 

BULL 7BIT IS NOT GOING TO SET 


SEQ 0128 
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006770 


032777 
001001 
104102 
060207 


012737 
017737 
042737 


000207 
012737 
017737 
042737 


000207 


013737 


7 
017737 


000200 


000000 


000000 


133346 
090000 


000000 
133320 
030600 


000007 
133272 
177770 


000000 
133270 
000117 


001102 
003455 
020000 


133270 


133422 


001162 
001200 
001200 


001162 
001200 
001200 


001162 
001200 
007200 


001162 
001200 
007200 


001162 
001200 
001206 


001162 
001200 
001200 


003454 
177570 
001103 
003456 
003460 


003460 
050200 


} CLRB TSTNM+1 


M 10 
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END OF PASS ROUTINE 


BR 19$ 
BULL : 
BIT ore’ @RHCS1 
BNE UTE 
ERROR 102 
CUTE: RTS 


Galata eeeealieaintehenpindiadidedianhaidmanasduiaaleintntianiinkdinhedaedadiasy 
THESE ARE THE CLEARS ROUTINES 
CD IIIS III IO IOIIOIIIOIUIUIIIUIDIOIUIIOIIOIIIOR Totti tion it 
FINDIT: MOV #0,$REGO :GET READY TO FIND ERROR 
MOV @RHCS1, $TMP1 ;GET COMPARE READY 
BIC #READ6!GO! IE!RDY!A16!A17!PSEL !DVA, $TMP 
LEAR BITS A. 3 NEEDED 
RTS R7 RETURN TO PROGRAM 
LOOKFSO: MOV #0, $REGO ;GET READY TO FIND ERROR 
MOV SRitse. $7MP 3;GET COMPARE READY 
BIC #US1!US2! US6 BAL !PAT!CLR!IRIOR, STMP1 
;CLEAR BITS NOT NEEDED 
RTS R7 RETURN TO PROGRAM 
LOOKED: MOV 40, $REGO ;GET READY TO FIND ERROR 


MOV @RHER ,$TMP1 GET COMPARE READY 
BIC #ZERO,$TMP1 
CLEAR BITS onhe NEEDED 
RTS R7 RETURN TO PROGRAM 
FIND: MOV #0, $REGO SGET READY TO FIND ERROR 
MOV @RHST,$TMP1 GET COMPARE READY 
BIC #DRY!DPR!MOL!PIP,$TMP1 
‘ :CLEAR BITS Aa NEEDED 
RTS R7 :RETURN TO PROGRAM 
FOUND: MOV #7 , SREGO :GET READY TO FIND ERROR 


MOV @RHCS2, $TMP1 3;GET COMPARE READY 
BIC MBAT!PAT!CLR!IR!OR!MPE! MXE !PGE !NEMNED !UPE /WCE !DLT, $TMP1 
eCL oh ty aie NEEDED 

RTS R7 : RETURN TO PROGRAM 

CS3ERR: MOV #0, tl GET READY TO FIND ERROR 
MOV @RH(S3,$ GET COMPARE READY 
BIC MIE3! TBCKO! [PCK1! IPCK2! IPCK3,¢7MP1 

:CLEAR BITS NOT NEEDED 

RTS R7 [RETURN TO PROGRAM 


SERA 


:* THIS ROUTINE IS THE TEST NUMBER CORRECTION ROUTINE 


SURE REE EKER 
\ 


TSTNMB: MOV $TSTNM, TSTNM :GET THE TEST NUMBER 
SCLEAR UPPER BYTE 


BIT #SW13,04177570 : INHIBIT TYPEOUT 
BNE TSTNMA ; 

CMPB #1, $ERFLG :IS IT FIRST ERROR 
BNE TSTNMA :NO 

MOV sore OF FSET :GET TEST NUMBER 
ROL OFFSET CREAT OFF 


MOV MHEADER , HEDDAD 
ADD OF F SET ,HEDDAD 
MOV @HE DDAD , HE DADD 


:GET BEGINING OF TABLE 
[CREATE MES ADDRESS 
;SET UP FOR MESSAGE 


SEQ 0129 


oat RH70 AND RH11 Be be eke 


CZ2RHBE .P11 
050172 


050210 


050244 


050262 
050262 
050266 
050270 
050274 
050332 
050332 


050334 
050340 


07=JUN=79 


104401 
104401 


000000 
004737 
000207 


105737 
001446 
032737 
001042 
013737 
105037 
104401 
000406 


013746 
104402 
104401 
0004 16 


000207 


012716 
000002 


001223 


074130 


001103 
029000 
001102 


903455 
050246 


003454 
050276 


044636 


177570 
003454 


MACY?1 30A(1052)  12=JUL=79 746 PAGE 131 
END OF PASS ROUTINE 


TYPE »$CRLF 
TYPE 

HEDADD: 0 

TSTNMA: JSR R7 ,@ASERRTYP 
RTS R7 


;GO_ TO ERROR TYPE ROUTINE 
RETURN TO ERROR ROUTINE 


FFARR AREA RRRA RRA EEE AREER EERE ERA EEE EEE 


7 THIS PROGRAM WHILL DEVIDE THE ERROR 
PRINTOUT BETWEEN TESTS 


CFTR ARR AAER RE REAEREE REAR TERRE EERE EERE ERE ERE EE 


ERRTST: TST SERFLG WAS THERE AN ERROR FOUND 
BEQ OUTOF :NO ,GO TO NEXT TEST 
#SW13,04177570 : INHIBIT TYPEQUT ? 
TOF ;YES 


+ -d* bes NO. 
R UPPER BYTE 

S TYPE asciy STRING 
64$ ier OVER THE ASCIZ 
CVS >Re 1 E> (Pwr TEST 


TSTNM,-(SP) 7zSAVE TSTNM FOR TYPEOUT 
:2GO TYPE=-OCTAL ASCII(ALL DIGITS) 
67% phys ASCIZ STRING 
66$ sGET OVER THE ASCIZ 
7 ERROR MESSAGE(S) *444/<15><12><12><12> 


R? 


LIRA A ROR E REE RRR EERE EERE RRR EERE 
:THIS IS THE INTERUPT ROUTINE 
7FOR THE LARGE TRANSFER TEST 


CLEARER ARERR RRR ERA ER EERE ERE RREREEEEEEEE ERE ERERE EE 


SLKTST: at #RHNINT, (SP) SET THE CORRET RETURN 
R 


AND RETURN 


SEQ 0130 
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CZRHBE .P11 


050752 


044122 


020124 


052123 
042122 


020124 
041110 


052123 
040502 


052123 
041104 
051101 
020124 
020124 


047522 


030440 
041510 


020124 


041527 
052040 
052050 


042104 


030440 
020122 
020124 
020124 


042524 


031440 
041440 


024464 
020101 


032440 
an ss 


033040 
041440 


024467 
pete 


024460 
031523 


030461 


041040 
051505 
051505 


MACY11 30A(1052)  12=JUL=79 


B81 
1 


1 
0:46 PAGE 132 


END OF PASS ROUTINE 


FLERE REE EEREEEREE REET EERE REE RAEEEEERERRERAEER EEE EH 


; HEADER MESSAGES FOR ERROR PRINT OUTS 


FFARR ERERE REE EER ERRATA EE 


HED1: 


HED10: 


HED11: 


HED12: 


-ASCIZ/RH ADDRESS DECODE TEST (TEST 1)/ 


eASCIZ/CLEAR TEST (TEST 2)/ 


-ASCIZ/TESTER CONNECTED TEST (TEST 3)/ 


«ASCIZ/WORD COUNT CLEAR TEST (TEST 4)/ 


eASCIZ/RHBA CLEAR TEST (TEST 5)/ 


eASCIZ/RHBAE CLEAR TEST (TEST 6)/ 


-ASCIZ/RHDB CLEAR TEST (TEST 7)/ 


-ASC12/PROM REGISTER DECODE TEST (TEST 10)/ 


-ASCIZ/RHCS3 BIT TEST (TEST 11)/ 


eASCIZ/RHWC BIT TEST (TEST 12)/ 


SEQ 0131 
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HBE . O7=JUN-79 13 END OF PASS ROUTIN SEQ 0132 


050760 020124 000051 
0507 


HED13: .ASCIZ/RHBAE BIT TEST (TEST 13)/ 


030440 024463 | 
041110 020101 HED14: .ASCIZ/RHBA BIT TEST (TEST 14)/ 


030440 024464 
042110 020102 : .ASCIZ/RHDB BIT TEST (TEST 15)/ 


024465 


020103 :  .ASCIZ/RHWC OPERATIONAL TEST (TEST 16)/ 


030440 
020101 : .ASCIZ/RHBA OPERATIONAL TEST (TEST 17)/ 


SNRVERSUR 


QUNRW 


030440 
052054 : .ASCIZ/NEM,TRE AND SC BIT TEST (TEST 20)/ 


eASCIZ/WCE,TRE AND SC BIT TEST (TEST 21)/ 


-ASCIZ/MDPE,TRE AND SC BIT TEST (TEST 22)/ 


HED23: .ASCIZ/UPE,TRE AND SC BIT TEST (TEST 23) RH11 ONLY/ 


047440 046116 


026105 051124 HED24: .ASCIZ/UPE,TRE AND SC BIT TEST (TEST 24)/ 
020105 047101 020104 








D1 
MASSBUS RH70 AND RH11 tay we? be MACY11 30A(1052) 12=JUL=79 1 
CZ2RHBE .P11 O7=JUN=79 13:44 END OF PASS ROUTINE SEQ 0133 


6959 051436 pe 1328 041040 0521 


1 
0:46 PAGE 134 


oer 051464 042516 ad 051124 HED25: .ASCIZ/NED,TRE AND SC BIT TEST (TEST 25)/ 


6968 
6969 051526 054115 026106 051124 HED26: .ASCIZ/MXF,TRE AND SC BIT TEST (TEST 26)/ 


6973 051556 BSoe5 ease 020124 
6975 051570 043520 020105 051124 HED27: .ASCIZ/PGE TRE AND SC BIT TEST (TEST 27)/ 


6979 051620 052050 051505 020124 
6981 aelech 054115 026106 051124 HED30: .ASCIZ/MXF,TRE AND SC BIT TEST (TEST 30)/ 


84 
6985 051662 Bepoet 051505 020124 
6987 051674 041515 042520 040440 HED31: .ASCIZ/MCPE AND SC ERROR BIT TEST (TEST 31)/ 


6992 051732 052123 031440 024461 
051741 104 046102 052040 HED32: .ASCIZ/DBL TEST.1 WORD FROM A BASE 4 ADDRESS (TEST 32)/ 


4040 
7001 052012 052123 031440 (24462 
7003 052021 104 046102 052040 HED33: .ASCIZ/DBL TEST,2 WORD FROM A BASE 4 ADD. (TEST 33)/ 


7009 052064 052050 051505 020124 . a 
7011 052076 041104 020114 042524 HED34: .ASCIZ/DBL TEST,3 WORD FROM A BASE 4 ADD. (TEST 34)/ 


7014 052120 046517 040440 041040 


— 11 
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CZRHBE .P11 O7=JUN=79 13:44 END OF PASS ROUTINE SEQ 0134 


052126 051501 as0i9? 020064 
052 210 024040 
031440 


052040 HED35: .ASCIZ/DBL TEST,4 WORDS FROM A BASE 4 ADD. (TEST 35)/ 


HED36: .ASCIZ/DBL TEST,1 WORD FROM A BASE 4 ADD.(TEST 36)/ 


031440 
052040 HED37: .ASCIZ/DBL TEST,2 WORD FROM A BASE 4 ADD. WITH BAI SET (TEST 37)/ 


HEDSC: .ASCIZ/DBL TEST,2 WORD WITH BAI SET AND WRITE REV )TEST 40)/ 


HED41: .ASCIZ/DBL TEST,NOT A BASE 4 ADD (TEST 41)/ 


HED42: .ASCIZ/DBL TEST BASE 4 ADD. WRITE FWD (TEST 42)/ 


HED43: .ASCIZ/DBL TEST ,2 WORD ,NOT A BASE 4 ADD, (TEST 43)/ 


052622 047054 052117 040440 
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0 
051505 


051501 


020124 
020114 


026124 


020105 


052050 
032064 


042524 


000 
052040 
020065 


MACY11 30A(1052) 


END OF PASS ROUTIN 


HED44: 


HED45: 


HED46: 


HED47: 


HEDSO: 


HED51: 


HEDS2: 


»ASCIZ/DBL 


»ASCIZ/DBL 


»ASC]Z/DBL 


~ASCIZ/DBL 


eASCIZ/DBL 


eASC1Z/DBL 


-ASC12/DBL 


12*JUL=79 
E 


F 1 
: 


TEST,3 WORD 


TEST,2 WORD 


TEST,2 WORD 


TEST,2 WORD 


TEST,2 WORD 


TEST, 3 WORD 


TEST, 3 WORD 


1 
0:46 


»NOT 


READ 


READ 


READ 


READ 


READ 


READ 


PAGE 136 


A BASE 4 ADD. WRITE REV (TEST 44)/ 


FWD (TEST 45)/ 


FWD,NOT A BASE 4 ADD. (TEST 46)/ 


REV,BASE 4 ADD. (TEST 47)/ 


REV,NOT A BASE 4 ADD. (TEST 50)/ 


FWD,BASE 4 ADD. (TEST 51)/ 


REV.BASE 4 ADD. (TEST 52)/ 


SEQ 0135 


G 11 
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047527 B36 lee 051040 
eASCIZ/WCE EW ERROR TEST “WCELO’’ (TEST 53)/ 
eASCIZ/WCE OW ERROR TEST “WCEHI'’ (TEST 54)/ 


eASCIZ/INTERUPT ENABLE TEST (TEST 55)/ 


032449 024465 : 
040505 020104 : .ASCIZ/READ OPERATIONAL TEST (NORMAL #1) (TEST 56)/ 


032440 / 
050117 :  .ASCIZ/RH OPERATIONAL WRITE TEST #1 (TEST 57)/ 
020124 oS 
047440 : .ASCIZ/READ OPERATIONAL TEST (NORMAL #2) (TEST 60)/ 


033040 024460 
020110 050117 1: .ASCiZ2/RH OPERATIONAL READ TEST #1 (TEST 61)/ 


033040 


122 020104 : .ASCIZ/READ OPERATIONAL TEST (NORMAL #3) (TEST 62)/ 
054020 051105 052101 
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7183 054026 047511 p92 16 20114 


7186 

7187 %54056 Ranaes 020124 $3006 

7189 054066 044122 047440 042520 HEDS3: .ASCIZ/RH OPERATIONAL WRITE TEST #2 (TEST $3)/ 
7190 054074 940522 044524 047117 

7191 054102 046101 053440 044522 

7192 054110 042524 (52040 051505 

7193 054116 020124 031043 024040 

7194 054124 * 042524 uae Sh 033040 : 


7196 054135 122 040505 020104 HED64: . .ASCIZ/READ OPERATIONA! TEST (NORMAL #4) (TEST 64)/ 


7202 054200 051505 020124 032066. 
7204 054210 044122 047440 042520 HED65: .ASCIZ/RH OPERATIONAL READ TEST #2 (TEST 65)/ 


7206 054224 046101 051040 040505 | ! 
7207 054232 020104 042524 052123 ’ 


7209 054246 poet 020124 032466 
7211 054256 051127 052111 020105 HED66: .ASCIZ/wRITE OPERATIONAL TEST (NORMAL #1) (TEST 66)/ 


7217 054322 051505 020124 033066 
7219 05433c 044122 047440 042520 HED67: .ASCIZ/RH OPERATIONAL WRITE TEST #3 (TEST 67)/ 


7224 054370 042524 052123 033040 
7226 054401 127 044522 042524 HED70: .ASCIZ/WRITE OPERATIONAL TEST (NORMAL #3) (TEST 70)/ 


7230 054430 047050 051117 040515 

7231 054436 020114 031443 024051 

7232 054444 042524 052123 033440 

7233 054452 024460 000 

7234 054455 1 020110 050117 HED71: .ASCIZ/RH OPERATIONAL READ TEST #3 (TEST 71)/ 
7235 54462 051105 052101 47511 

7236 054470 040516 020114 042522 

7237 954476 042101 052040 051505 

7238 054506 020124 031443 024040 
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CZRHRE .O711 


054512 


Q7=JUN=7 


042524 
024461 


020124 
047440 


* 020124 


043522 


000051 


033440 
042524 


Osta 40 
050117 


020124 
020105 


032067 
Oeeee 


032467 
020105 


020124 


MACY1T1 30A(1052) 12=JUL=79 


I 11 
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END OF PASS ROUTINE 


HED 72: 


HED73: 


HED 74: 


HED75: 


HED76: 


eASCIZ/WRITE OPERATIONAL TEST (NORMAL #3) (TEST 72)/ 


eASCIZ/RH OPERATIONAL WRITE TEST #4 (TEST 73)/ 


eASCIZ/WRITE UPERATIONAL TEST (NORMAL #4) (TEST 74)/ 


eASCI2/RH OPERATIONAL READ TEST #4 (TEST 75)/ 


-ASCIZ/LARGE TRANSFER TEST 671 WORDS (TEST 76)/ 


SEQ 0138 


37 
10:46 PAGE 140 


MASSBUS RH70 AND RH11_DiAGNOSTIC MACY11 30A(7052) = 12=JUL=79 
CZRHBE .P11 O7=JUN=79 13:44 END OF PASS ROUTINE ; SEQ 0139 
278 
7279 PLR EERE REAR EEE ERE EEREEERERRE RARER RETR REE EE 
7280 ERROR MESSAGES 
7281 LLP REAR EAE E RTE EERE RRR ERHEEREREERRERERRE EERE EER 
7282 
7283 


-EVEN 
7284 Ooo. 047503 051122 041505 EMI: eASCIZ/CORRECT BIT DID NOT SET IN RHWC/ 


7288 055070 047111 051040 053510 

7290 055100 047503 051122 041505 EM2:  .ASCIZ/CORRECT BIT DID NOT SET IN RHBA/ 
7292 055114 044504 020104 047516 * ~ 

7294 055130 047111 051040 041110 


7296 055140 047503 051122 041505 EMS: eASCIZ/CORRECT BIT DID NOT SET IN BUS ADDRESS REG./ 
7297 055146 020124 044502 020124 


7302 055204 051523 051040 043505 
7304 055214 047503 051122 041505 EMA: -ASCIZ/CORRECT BIT DID NOT SET IN RHDB/ 


0552 
7308 055244 047111 051040 042110 
7310 055254 047516 026516 054105 EMS: »ASCIZ/NON“EXISTANT MEMORY DID NOT SET IN RHCS2/ 


000 
7317 =055325 040 047514 044507 EM6: eASCII/ LOGIC TO SET TRE BIT IN RHCS1 REGISTER/<15><12> 


-ASCII/IS NOT WORKING,GO TO (CSRB) PRINTS IF RH11/<15><12> 


7330 055442 020106 044122 030461 


7332 055452 051117 024040 051503 eASCIZ/OR (CSTB) PRINTS JF RH70 IN LOCATION 87 ON BOTH PRINTS/ 
7333 055460 041124 020051 051120 ; 


é 


MASSBUS RH70 AND RH11 mite 


CZRHBE .P11 


056140 


Q7=JUN=7 


047111 


020104 


051524 


047111 
046505 


047516 


041510 
040440 


051105 


044504 
020124 


044502 


051101 
041040 
042111 
051440 
041040 
042111 
051440 


041040 


020124 


044504 
020124 


K 1 
] 


1 
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END OF PASS ROUTINE 


EM?: »ASCIZ/NEM BIT DOES NOT READ AS SET IN’RHCS2/ 


EM10: -ASCIZ/NEM AND SC NOT SET IN RHCS1/ 
EM11: -ASCIZ/SC BIT SET BY ATTN OR MCPE ERROR/ , 


& 


EM12: eASCIZ/ SC DID NOT SET/ 4 


EM13: -ASCIZ/TRE BIT IS SET BUT SC READS AS CLEARED/ 
t 


EM14: | .ASCIZ/WCE BIT DID NOT SET/ 
EM15: e-ASCIZ/WCE BIT DID NOT SET/ 


EM16: -ASCIZ/TRE BIT NOT SET/ 


EM17: -ASCIZ/WCE AND TRE ARE SET BUT SC BIT NOT SET/ 


EM20:  .ASCIZ/UPE DID NOT SET IN RHCS2/ 


SEQ 0140 
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056146 042523 020124 047111 
041510 031123 


042522 040440 :  ,ASCII/TRE AND SC BITS ARE SET/ 


»ASCIZ/UPE AND SC BIT DID NOT SET/ 


051440 


044502 :  ,ASCIZ/SC BIT. NOT SET/ 
020124 


044504 : -ASCIZ/NED DID NOT SET IN RHCS2/ 


041510 031123 ‘ 
042522 040440 §EM25: .ASCIZ/TRE AND SC SHOULD NOT SET/ 


051440 
ep : eASCIZ/TRE SHOULD NOT BE SET/ 


eASCIZ/TRE BIT WAS NOT SET BY NED/ 


020131 
044502 : -ASCIZ/MXF BIT DID NOT SET IN RHCS2/ 


eASCIZ/MXF BIT SHOULD BE SET IN RHCS2/ 


044122 051503 
020106 047101 > .ASCIZ/MXF AND SC ARE NOT SET/ 


eASCIZ/TRE READS AS CLEARED,MXF AND SC ARE SFT/ 


0 
056616 051440 052105 
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7446 O266¢> 124 051505 042524 £M34: .ASCIZ/TESTER DOES NOT READ AS BEING CONNECTED/ 


7449 640505 020104 051501 
7450 056652 041040 044505 043516 
7451 041440 047117 042516 
7452 05 052103 042105 


6666 000 
7453 056673 102 052111 044440 EM35: .ASCIZ/BIT IN RHCS3 WILL NOT SET/ 


7455 056706 020063 044527 046114 
7456 056714 047040 052137 051440 


00 
7458 056725 122 020110 044504 EM36: .ASCIZ/RH DID NOT RESPOND TO ADDRESS/ 
7459 056732 020104 047516 020124 ; 

7460 056740- 042522 050123 047117 

7461 056746 020104 047524 040440 

7462 056754 ee 042522 051523 


7464 056763 104 052114 042040 £EM37:. .ASCIZ/DLT DID NOT SET IN RHCS2/ 
7465 056770 042111 047040 052117 ’ 
7466 056776 051440 052105 044440 

7467 057004 Seones 044122 051503 


7469 057014 046104 020124 051511 EM40: .ASCII/DLT !S NOT SET IN RHCS2,BUT TRE AND SC ARE SET/<15><12> 
7477 =057074 051124 020105 047101 -ASCIZ/TRE AND SC COULD HAVE BEEN SET BY ANOTHER’ ERROR/ 


2 
7485 057154 rene 050124 nee is? EM41: -ASCIZ/OUTPUT READY DID NOT SET WHEN INFO WAS LOADED INTO THE DATA BUFFER/ 


494 20 
7495 057250 wa 043106 051105 


7497 057257 107 046114 041040 EM42: .ASCIZ/ALL BITS DID NOT LOAD INTO RHWC (177777)/ 
7498 057264 052111 020123 044504 
7499 057272 020104 047516 020124 
7500 057300 047514 042101 044440 
7501 057306 052116 020117 044122 


N1 
i 


1 
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CZRHBE .P11 O7=JUN=79 13:44 END OF PASS ROUTINE SEQ 0143 
ete de. 2 033461 


EM43:  .ASCIZ/RHWC DID NOT LOAD ANY BITS (177777)/ 


«ASCIZ/SOME BITS CLEARED IN RHWC AFTER CLR WAS LOADED INTO RHCS2/ 


044122 
054105 :  .ASCIZ/NON-EXISTANT MEMORY BIT SET IN RHCS2 (NEM)/ 
05111” 
020124 
047111 
031123 
042516 024515 


041110 020101 3 -ASCIZ/RHBA DID NOT CLR AFTER CLR WAS LOADED INTO RHCS2/ 


044122 051503 
020114 044502 EM47: -ASCIZ/ALL BITS DID NOT LOAD INTO RHBA (177776)/ 


eASCIZ/LOADING TRE AFTER ITS SET DOES NOT CLEAR ERROR/ 


-ASCIZ/PGE DID NOT SET IN RHCS2/ 


041510 031123 
042510 050049 > ¥ASCII/THE PROM WHILE ACCESSING A REGISTER/<15><12> 
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O7*JUN=79 13:44 


047522 


051105 


020 
020 


044127 
041501 
047111 
042522 
051105 


020110 


047511 
051440 


00 
000122 
000 
041104 


000123 
000061 


000 
042501 
031523 
041511 


040505 
020061 


020122 


MACY11 30A(1052)  12=1L =79 


B 12 
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END OF PASS ROUTINE 


EM72: 


—EM73: 


EM74: 


«ASCII/WHICH YOUR TESTER CANNOT SUPPLY INFORMATION/<15><12> 


eASC1Z/FOR SAYS INFO iS PRESENT/ 


-ASCIZ/RHCS1/ 
«ASCIZ/RHWC/ 
-ASC1Z/RHBA/ 
-ASCIZ/RHMR2/ 
»ASCIZ/RHCS2/ 
~ASCIZ/RHST/ 
~ASCIZ/RHER/ 
«ASCIZ/RHAS/ 
-ASCIZ/RHTDB/ 


»ASCIZ/RHDS/ 
-ASCIZ/R'4MR1/ 
eASCIZ/RHDT/ 
-ASC1Z/RHBAE / 
-ASCIZ/RHCS3/ 


-ASCIZ/DEVICE NUMBER IN RHMR2 DOES NOT EQUAL A 7AFTER A CLEAR/ 


~ASCI1Z/RHCS1 HAS AN ERROR BIT SET/<15><12> 


»ASCIZ/ERROR BIT SET IN RHCS2/ 


eASCIZ/ERROR BIT SET IN RHER/ 


SEQ 0144 
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7614 060454 044502 020124 042523 
7615 060462 020124 047111 051040 


7617 060474 051105 047522 020122 EM75:  .ASCIZ/ERROR BIT SET IN RHST/<15><12> 


7621 060524 044122 040502 044440 EM76: »ASCIZ/RHBA INCREMENTED BUT IT DID NOT CARRY OVER TO RHBAE,RHBAE SHOULD =40/ 


7631 060620 052517 aug 036440 
Oy 060631 22 054504 042040 €EM77: «ASCII/RDY DID NOT SET,AND WORD COUNT DID NOT INCREMENT/<15><12> 


7640 060702 Balagz sgt 047105 
7642 060713 104 044517 043516 -ASCIZ/DOING A WRITE OPERATION/ 


7645 060734 eels 044524 047117 


7647 060743 122 041110 042501 E€M100: .ASCII/RHBAE DID NOT CLEAR AFTER CLR WAS LOADED/<15><12> 
7648 060750 042040 042111 047040 


7653 061006 wirag 48 042504 006504 
7655 061015 111 052116 abhi eASCIZ/INTO RHCS2/ 
7657 061030 051127 052111 peyeo3 EM101: .ASCIZ/WRITE REVERSE OPERATION DID NOT WORK/ 


7661 061060 044504 020104 047516 
7662 061066 020124 047527 045522 
7663 061074 9000 


7665 061075 122 054504 042040 EM102: .ASCIZ/RDY DID NOT SET IN RHCS1/ 
7666 061102 042111 047040 052117 
7667 061110 051440 052105 044440 
061116 020116 044122 051503 
7669 061124 000061 
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044522 Rze58 EM103: .ASCII/DURING A WRITE OPERATION RDY DID NOT SET/<15><12> 


«ASCII/WORD COUNT DID NOT INCREMENT,BUT INFORMATION/<15><12> 


RRRERELETSTRE 


044524 


051127 eASCIZ/WAS WRITTEN TO TESTER/ 
020116 
051505 


eee EM104: .ASCII/DURING A WRITE OPERATION RDY DID NOT SET/<15><12> 


«ASCII/WORD COUNT DID NOT INCREMENT,AND INFORMATION/<15><12> 


043116 
044524 


047516 eASCIZ/WAS NOT TRANSFERED TO THE TESTER/ 


052123 
Revest EM105: .ASCIZ/BAE IS MESSED UP,I7 SHOULD EQUAL 40,/ 


020114 030064 


020105 044504 EMi06: .ASCIZ/BAE DID NOT INCREMENT/ 
020124 
046505 


oaesn EM107: .ASCIZ/READ REV OPERATION DID NOT READ FROM TESTER TO STORAGE LOCATION (RBUF )/ 
047117 
047040 

052117 051040 040505 
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061626 051106 046517 
061634 052040 


EM110: .ASCII/RHBAE EQUALS 0,11 SHOULD EQUAL 40/<15><12> 


eASCIZ/AFTER A ONE WORD WRITE/ 


-ASCIZ/A17 DID NOT SET AFTER BA WAS INCREMENTED/<15><12> 


042524 006504 
042040 042111 :  ASCIZ/BA DID NOT INCREMENT/ 
044440 
042515 


047111 :  .ASCII/BA INCREMENTED BUT IT DID NOT CARRY 710/<15><12> 


~ASCIZ/A16 AND A17 IN RHCS1/ 
044122 


eels? :  .ASCII/OUTPUT READY WAS NOT NEGATED AFTER CLR WAS/<15><12> 
v 


0534490 051501 
042101 042105 +ASCIZ/LOADED INTO RHCS2/ 


EM115: .ASCIZ/ALL BITS DID NOT READ TO STORAGE LOC. (RRIF) DURING A READ REV. OPERATION 


3 
062314 051440 047524 040522 
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042507 046040 


052101 
042520 EM116: .ASCIZ/MDPE DID NOT SET IN RHCS2/ 


044122 051503 
047506 042060 EM1i7: .ASCII/INFO DID NOT WRITE TO TESTER DOING A/<15><12> 


043516 040440 
052111 020105 eASCIZ/WRITE REVERSE OPERATION/ 


EM120: .ASCIZ/TRE AND SC WHERE NOT SET BY MDPE/ 


042115 


044440 EMi2i: .ASCIZ/TRE IS SET IN RHCS1,MDPE AND S7/ 
020124 
041510 
050104 
020104 


046125 eASCIZ/SHOULD ALSO BE SET/ 
047523 
020105 042523 


042520 040440 EM122: .ASCIZ/MDPE AND SC SHOULD BE SET/ 


025523 
047101 €M123: .ASCIZ/TRE AND SC ARE SET, PGE SHOULD ALSO BE SET/ 


02017) 
052105 


peg nee EMi24: .ASCII/DBL DID NOT SET AFTER A 4 WORD WRITE FROM/<15><12> 
051440 05 040440 
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063454 


020117 
047510 


051105 


051106 
042440 


051106 
042440 


031523 


046517 


042526 
051104 


042523 


042522 
020105 


042105 
020105 


041510 


046040 
051040 
042040 


J 
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END OF PASS ROUTINE 


EM125: 


EM126: 


EM127: 


EM130: 


EM131: 


EM13?: 


»ASCIZ/AN EVEN ADDRESS/ 


-ASCII/DBL SET IN RHCS3 DOING A 1 WORD WRITE FROM/<15><12> 


»ASCIZ/AN EVEN ADDRESS/ 


eASCII/DBL SET IN RHCS3 ON A 3 WORD WRITE FROM/<15><12> 


eASCIZ/AN EVEN ADDRESS/ 


eASCII/DBL DID NOT SET IN RHCS3 AFTER A 2 WORD/<15><12> 


-ASCIZ/FROM AN EVEN ADDRESS/ 


-ASCIZ/MCPE SET IN RHCS1 BUT SC READS AS CLEARED/ 


eASCIZ/MCPE DID NOT SET IN RHCS1/ 


ASCIZ/WCE: LO IN-RHCS3 DID NOT SET/ ~ 


SFQ 0149 





MASSBUS RH70 AND RH11_ DIAGNOSTIC 


CZ7RHBE.P11 


Q7=JUN=79 


0423 
051 


— 


042515 
051117 


13:44 
047040 


020123 
020105 


041510 
042503 


051440 
044522 


020104 


052117 


042523 . 


047514 


051503 
044510 


047040 
047514 


047502 
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END OF PASS ROUTINE SEQ 0150 
EM133: .ASCII/WCE LO SHOULD ONLY BE SET IN RH(S3 BUT/<15><12> 
sASCIZ/WCE HI ALSO READS AS SET/ . 
EM134: .ASCIZ/WCE LO SET IN RHCS3 BUT WCE DID NOT SET IN RHCS2/ 
\ : 
EM135: .ASCIZ/WCE HI DID NOT s€T IN RHCS3/ 
EM136: .ASCIZ/wCE Hi SET IN RHCS3 BUT WCE DID NOT SET IN RHCS2/ 
EM137: .ASCII/WCE HI SHOULD ONLY SE SET IN RHCS3 BUT/<15><12> 
-ASCIZ/WCE LO ALSO READS AS SET/ 
. ‘ ‘ 
-ASCIZ/WRITE OPERATION DID NOT INCREMENT WORD COUNT/ 


\ 1 12 = 
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047125 000124 
EM141: .ASCIZ/BUS ADDRESS DID NOT INCREMENT AFTER A wRITE/ 


051127 ; 
047506 EM142: .ASCIZ/INFORMATION DID NOT GET WRITTEN TO TESTER/ 


EM143: .ASCIZ/READ OPERATION DID NOT INCREMENT WORD CQUNT/ 


047503 047125 
020123 042101 EM144: .ASCII/BUS ADDRESS DID NOT INCREMENT AFTER A READ/<15><12> 


042522 042101 
051105 052101 *  .ASCIZ/OPERAT I0N/ 
046522 E—M145: .ASCIZ/INFORMATION DID NOT READ FROM TESTER/ 


052123 051105 
044510 020123 EM146: .ASCIZ/THIS IS THE CONTENTS OF THE RH REGISTERS/ 


EM147: .ASCII/ALL BITS DID NOT GET TRANSFERED DURING A/<15><12> — 


» 


064632 042522 042101 047440 eASCIZ/READ OPERAT LON/ 
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042520 040522 044524 
047117 060 
boots EM150: .ASCII/READ OPERATION DID -NOT SEEM TO WORK,NO /<15><12> 


ASCIZ/ INFORMATION WAS TRANSFERED TO STORAGE LOC. (RBUF ) / 


EM157: .ASCII/ALL BITS WHERE NOT TRANSFERED TO TESTER/<15><72> 


-ASCIZ/DURING A WRITE OPERATION/ 


wand *: 044524 047117 
127 044522 042524 EMi52: .ASCIZ/WRITE OPERATION DID NOT WRITE TO TESTER/ 


EM153: .ASCII/DBL SET ON A 2 WORD TRANSFER WITH BAI/<15><12> 


041040 


047111 eASCIZ/SET IN RHCS2/ 
wae (41510 031123 


104 (46102 051440 £M154: .ASCIZ/DBL SET IN RHCS3 ON A 1 WORD READ FROM/<15><12> 


-ASCIZ/AN EVEN ADDRESS/ 
065320 020116 042101 051104 
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051505 . 
042523 E—M155: .ASCII/DBL SET ON A 2 WORD WRITE REV. WITH BAI SET/<15><12> 


042523 
044122 eASCIZ/IN RHCS2/ 
042523 : .ASCII/DBL SET ON A 2 WORD TRANSFER(WRITE)/<15><12> 


042524 006451 

047522 020115 ~ASCIZ/FROM AN ODD ADDRESS/ 
042104 
042522 


042040 :  .ASCII/DBL DID NOT SET ON A 2 WORD WRITE REV.FROM AN EVEN/<15><12> 


-ASCIZ/ADDRESS/ 
-ASCII/DBL SET ON A 2 WORD WRITE REVERSE/<15><12> 


-ASCIZ/FROM AN ODD ADDRESS/ 
051104 051505 
020114 042523 : .ASCII/DBL SET ON A 3 WORD WRITE REVERSE/<15><12> 


-ASCIZ/FROM'AN ODD ADDRESS/ 
042522 
042040 >: .ASCII/DBL DID NOT SET ON A 2 WORD READ FROM AN/<15><12> 


052117 
051440 052105 047440 


OC Go CO CO CO On G0 G0 C0 00 OD Oo 00 Oo Co 
Se aah a el el coe el ea ani oe a ce a cel ld 


a SS = 31 ODO oO oO 
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020116 020101 020062 


049440 00651€ 


042526 020116 -ASCIZ/EVEN ADDRESS/ 
051104 051505 


020114 areR EM163: .ASCIi/DBL SET ON A 2 WORD READ FROM/<15><12> 
051117 
042101 

047522 006515 


020116 042117 »ASC1Z/AN ODD ADDRESS/ 
051104 


042523 £M164: .ASCII/DBL SET ON A 2 WORD READ REVERSE/<15><12> 
040440 E 

051117 

042101 

051105 

040440 -ASCIZ/FROM AN EVEN ADDRESS/ 

947105 

042522 


042040 EM165: .ASCII/DBL DID NOT SET ON A 2 WORD READ REVERSE/<15><12> 


051522 006505 

947522 C20115 -ASCIZ/FROM AN ODD ADDRESS/ 
042104 
042522 


051440 £EM166: .ASWI/DBL SET ON A 3 WORD READ FROM/<15><12> 


051106 046517 


042440 042526 »ASCIZ/AN EVEN ADDRESS/ 
051104 


044504 EM167: .ASCII/DBL DID NOT SET ON A 3 WORD READ REVERSE/<15><12> 


066446 > pvoeca LASCI2/FROM AN EVEN ADDRESS/ 
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8174 966454 020116 053105 047105 : 
8175 066462 040440 042104 042522 


0 
8177 poeers 124 042522 051040 EM171: .ASCIZ/TRE READS AS SET PGE AND SC SHOULD BE SET/ 


8183 066536 mee 051440 052105 


8184 066544 
8185 066545 123. 020103 044123 £EM172: .ASCIZ/SC SHOULD BE SET/ 
8186 066552 052517 042114 041040 , = 


8188 066566 042122 020131 047111 £M173: .ASCIZ/RDY IN RHCS1 DID NOT CAUSE AN INTERRUPT WITH IE SET/ 


194 
8195 066640 044124 044440 020105 
196 066646 
8197 066652 042511 053440 046111 EM174: .ASCIZ/IE WILL NOT SET IN RHCS1/ 
8198 066660 020114 047516 020124 
8199 066666 042523 020124 047111 
8200 066674 051040 041510 030523 


8202 066703 111 020105 040510 £M175: .ASCIZ/IE HAS AN OPEN GOING TO THE BUS/ 
8206 066732 052040 042510 041040 
8208 066743 122 041510 031523 EM176: .ASCIZ/RHCS3 HAS AN ERROR BIT SET/ 


8211 066764 020122 044502 020124 
8213 pepe 046104 020124 047101 EM177: .ASCIZ/DLT AND TRE ARE SET,SC SHOULD BE SET/ 


8218 067034 ones 051440 052105 
a5 067943 110 041111 052131 EM200: .ASCIZ/HIBYTE ,LOBYTE GATE FOR RHWC NOT WORKING PROPERLY/ 


8227 ports 051120 at 4 051105 
8229 067125 110 041111 052131 EM201: .ASCIZ/HIBYTE ,LOBYTE GATE FOR RHDB NOT WORKING PROPERLY/ 


MASSBUS _RH70 AND RH11_DIAGNOSTIC 
CZRHBE .P11 O7=JUN=79 13:44 


p20 19? 046054 


051105 
041040 


030060 
042524 


020123 
051440 
055040 


047101 


067610 020040 042524 


MACY11 30A(1052) 12=JUL=79 746 PAGE 157 
END OF PASS ROUTINE 


EM202: 


EM203: 


EM204: 


eASCIZ/HIBYTE ,LOBYTE GATE FOR RHBA NOT WORKING PROPERLY/ 


-ASCIZ/THE BUS ADDRESS IS INCORRECT IT SHOULD BE 15000/ 


-ASCIZ/TESTER DATA BUFFER DOES NOT CONTAIN THE CORRECT INFO/ 


eASCIZ/RH DID NOT INTERUPT LOOK AT CS1 TO SEE IF IE IS SET/ 


eASCIZ/RHWC SHOULD BE ZERO/ 


eASCIZ/TRANSFER WAS DONE ON PORT B/ 


»ASCI1/PC TEST RHwC CONTENTS RHWC/<15><12> 


SEQ 0156 





rear P _ AND RHi1 , tar 


RHBE .P 


O7=JUN-79 13:4 


070310 


020040 


052040 


044122 


053510 
020040 


041110 
020040 


044122 
020040 


044122 


020040 


000 
020040 
051505 


MACY11 304(1052) 


END OF PASS ROUTINE 


DH2: 


DH3: 


DH4: 


DHS: 


-ASC1Z/ 


eASCII/PC 


eASCIZ/ 


-ASCII/PC 


eASCIZ/ 


ASCII /PC 


eASCIZ/ 


- ASCII/PC 


12=JUL=79 


NO. 


TEST 


NO. 


TEST 


NO. 


TEST 


NO. 


TEST 


B 13 


RHBAE 


RHBA 


RHDB 


RHC S2 


10:46 PAGE 158 


SEQ 0157 


SHOULD HAVE BEEN/ 


CONTENTS RHBAE/<15><12> 


SHOULD HAVE BEEN/ 


CONTENTS RHBA/<15><12> 


SHO''LD HAVE BEEN/ 


CONTENTS RHDB/<15><12> 


SHOULD HAVE BEEN/ 


TRE AND SC/<15><12> 


c 
MASSBUS RH70 AND RH11_DIAGNOSTIC MACY11 30A(1052) 12=JUL=79 10:46 PAGE 159 
C2RHBE P11 O7=JUN=79 13:44 END OF PASS ROUTINE ' SEQ 0158 


070316 020124 02 051040 
051440 
020040 
020040 
041040 
020040 > ASCII /PC CONTENTS OF /<15><12> 
eASCIZ/ ‘ RHCS2/ 


044122 051503 
020040 020040 : ASCII /PC DEVICE/<15><12> 


eASCIZ/ 7" CODE/ 


047503 
DH35: — .ASCIZ/PC/ 
020040 DH36: eASCII/PC FAIL ING/<15><12> 
047111 006507 
020040 020040 “ASCIZ/ . __ ADDRESS/ 


042522 051523 


020103 020040 DH41: .ASCIZ/PC TEST NUMBER/ 
051505 
041115 


020040 DH52: -ASCI1/PC TEST ADDRESS DATA  RHAS/<15><12> 


040510 


020040 -ASCIZ/ NO. CONTENTS/ 
027117 
041440 
042524 052116 
070760 
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C7RHBE .P11 


070762 
0 


071450 


07=JUN=7 
041520 


052040 


9 13: 


020040 


051511 
020040 


044122 
020103 


051040 
020040 


051505 


020040 
052123 


042524 
020040 


041527 
020040 


053510 
020040 


044122 
020040 


044122 


020040 
620124 


D 13 
10: 
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END OF PASS ROUTINE 

DH71: ASCII /PF TEST = DEVICE/<15><12> 
ASCIZ/ NO. NUMBER / 

DH72: —. ASCII/PC TEST CONTENTS OF /<15><12> 
ASCIZ/ NO. REGISTER/ 

DH76: ASC 1Z/PC TEST NO. RHBAE = RHBA/ 

DH105: .ASC1Z/PC TEST NO. RHBAE RHBA = RHWC/ 

DH111: .ASCIZ/PC TEST NO. RHCS1 RHBA == RHWC/ 

DH121: .ASCIZ/PC TEST NO. RHCS1 = RHCS2/ 

DH130: .ASC1Z/PC TEST NO. RHCS1/ 

DH132: .ASCIZ/PC TEST NO. RHBAE RHBA RHCS2  RH(S3/ 

DH142: .ASCIZ/PC TEST NO. EVENAD RHTDB/ 


SEG 0159 


Crhiae Pia RH70 iy RH14 gy or aig 


RHBE .P11 


071456 


071746 


071750 


066 
072074 
072102 


7=JUN-79 


047516 
047105 


001162 


13:4 
020056 
0 


044122 
020103 


052710 


041110 
051940 


041510 
020040 


051105 


003454 


003454 
003454 


000000 
003454 


003454 


053105 


041104 
042501 


031123 
020040 
020056 
052516 
020040 
003444 
003416 
003414 
003426 
003422 
003422 
003434 


003330 


000000 
003416 
000000 


MACY11 30A(1052) 
END OF PASS ROUTINE 


DH146: 


DH147: 


DH170: 


DH171: 


DH172: 


-EVEN 
DT1: 


DT2: 
DT3: 
DT4: 
OT5: 
D111: 
DT34: 


DT35: 
D136: 


DT41: 
DTS2: 


E 13 
10: 


pean 46 PAGE 161 
eASCIZ/PC TEST NO. RHCS1 RHCS2 = RHWC/ 
eASCIZ/PC TEST NO. RBUF RHTDB/ 


eASCIZ/RHBAE =RHBA RHCS3/ 


ASCIZ/PC TEST NO. RHCS3/ 
ASCII/PC TEST DEVICE RHCS2/<15><12>- 
ASCIZ/ NO. NUMBER / 
.WORD  $ERRPC,TSTNM,WC,$REGO,0 
.WORD  $ERRPC,TSTNM,BAE ,$REGO,0 
.WORD $ERRPC, TSTNM,BA, $REGO,0 
-WORD  $ERRPC,TSTNM,DB,$REGO,0 
.WORD  $ERRPC,TSTNM,CS2,$REGO,0 
-WORD $ERRPC,TSTNM,(S2,0 

.WORD  $ERRPC,TSTNM,DT.0 

“WORD SERRPC. TSTAM, RHCS1,0 

.WORD $ERRPC, TSTNM,0 

“WORD © $ERRPC. TSTNM.BAE, $REGO,AS,0 


SEQ 0160 


F 13 
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072110 001116 003454 004100 DT71: -WORD $ERRPC,TSTNM,RBUF ,0 
003454 003416 DT7é: . $SERPPC, TSTNM,BAE ,BA,0 
003416 D1105: . SERRPC,TSTNM,BAE ,BA, WC 0 
DT111: . $ERRPC,TSTNM,CS7,BA,WC,0 
008420 OTVet:. « SERRPC,TSTNM,CS1,C52,0 
003454 003420 DI130: . SERRPC,TSTNM,CS1,0 


603454 003416 DT132: . SERRPC , TSTNM,BAE ,BA,CS2,(S3,0 
003422 003424 


003454 004000 DT142: . SERRPC, TSTNM,EVENAD , $REGO,0 


003420 DI146: . SERRPC,TSTNM,CS1,(S2,WC,0 
904100 OTI47: . $ERRPC, TSTNM,RBUF , $REGU,0 
003414 003424 DTi70: . BAE ,BA,(S3,0 
003454 003424 DT171:. $ERRPC,TSTNM,CS3,0 


0 003454 004100 Di172: . $ERRPC, TSTNM,RBUF ,CS2,0 
072310 000000 — 
ot Vi 


072314 000 000 DF1: ‘ 0,9.0,0 
000 000 DFe: ‘ 0,0.0,0 
000 : ‘ 0,0.0,0 
000 Po 0,0.0,0 
000 


072411 
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= "ronson peat tsar on cane tana aa he alata hak tsar at ee ie 


8612 
8613 
8614 
8615 
8616 
8617 
8618 
8619 
8620 
8621 


072566 054256 








MASSBUS RH70 AND WH11 gy pre dins MACY? 30A(1052) 12eJUL<79 :46 PAGE 164 
CZ7RHBE .P11 O7*JUN@75 13:44 END OF PASS ROUTINE 


072570 054332 HED67 
HED 70 

HED?71 

HED72 

HED 73 

HED 74 

5 HED 75 

054770 HED 76 








ieee RH70 AND RH11 Star 


-P1T 


O7=JUN=79 13:4 


072610 


072610 
072616 


072620 


072622 


073024 


032777 
001111 


000416 
013746 


000423 
032777 


011637 


040000 


000004 
000004 
000004 


000400 
106246 
001103 
001115 
001000 
001110 


001103 
001212 


004000 
001100 


001104 
001212 


000001 


001110 


106322 


- 000004 


106254 
001102 


001103 
106216 
001106 


106164 


001104 


001104 
001212 


MACY11 30A(1052) 


12*JUL +79 


SCOPE. HANDLER ROUTINE 


. SBTTL 


SCOPE HANDLER ROUTINE 


I 13 
10: 


46 PAGE 165 


4 FERRER KERR RRR REREREEREREORKEEREAERR ERE 


[*THIS ROUTINE CONTRCLS THE LOOPING OF SUBTESTS. 


IT WILL INCREMENT 


;*AND LOAD THE TEST NJMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (S$ERFLG) INTO DISPLAY<15:08> 
3*THE SWITCH wht oe tee BY THIS ROUTINE ARE: 


P ON TEST 
INHIBIT ITERATIONS 


+ *SW14= 1 
t*SW11= 1 

+ *SW09= 1 

+ *SWO8= 1 
T*CALL 

ta SCOPE 


$SCOPE: 
1$: BIT 


BNE OV 
sAAARASTART OF CODE FOR THE XOR 
$XTSTR: BR 6$ 
\ 


\ 


5$: 


BR 
6%: ;AAAAAEND OF 
BIT 


1$: 

M 
$SVLAD: 

M 


LOOP ON ERROR 


LOOP ON TEST IN SWR<7:0> 
3s SCOPE=I0T 


#B1T14,ASWR 
$OVER 


@AERRVEC ,-( SP) 
#58, aWERRVEC 


060 
(SP) +, a#ERRVEC 
$SVLAD 

(SP)+, (SP) + 
Sade - OMERRVEC 


+ sLOOP ON PRESENT TEST? 

sYES IF Sw14=1 
TESTERMHAHA 
331F RUNNING ON THE *‘XOR’’ TESTER CHANGE 
:-THIS INSTRUCTION TO A "NOP** (NOP=240) 
2zSAVE THE CONTENTS OF THE ERROR VECTOR 
2éSET FOR TIMEQUT 

:TIME OUT ON XOR? 
> ;RESTORE THE ERROR VECTOR 
2-60 TO THE NEXT TEST 

:CLEAR THE STACK AFTER van TIME OUT 
; ;RESTORE THE ERROR VECT 

LOOP ON THE PRESENT TEST 


7 
CODE Ay bes XOR’ TESTERAAMA® 


4B1T08,a 

2$ 
@SWR,$STSTNM 
$SOVER 

SERFLG 

3$ 
ers 
#B1T09,aSWR 
4$ 


$LPERR,$LPADR 
$SOVER ‘ 


SERFLG 
$TIMES 


1$ 
4B1T?1,aSWR 
1$ 


$PASS 
1$ 


$ICNT 
$TIMES,$ICNT 
$OVER 


#1,$1CNT 
SMXCNT,$TIMES 
$TSTNM 

(SP) ,$LPADR 
(SP) ,$LPERR 


+ ON SPEC. TEST? 
:BR IF NO 


:ON THE RIGHT TEST? 

SIBR IF YES 

2 ¢HAS AN ERROR OCCURRED? 
:BR IF _N 


5 2MAK, — FOR TNIS TEST OCCURRED? 


268 IF en 
:SET LOOP ADDRESS ro LAST SCOPE 


:ZERO THE ERROR FLAG 
SECLEAR THE NUMBER OF ITERATIONS ‘TO MAKE 
:sESCAPE TO THE NEXT TEST 
3: INHIBIT ITERATIONS? 
3 IF YES 
IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
“INCREMENT ITERATION COUNT 
:sCHECK THE NUMBER OF ITERATIONS MADE 
;:BR IF MORE ITERATION REGUIRED 
2 sREINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
: COUNT TEST NUMBERS 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 


SWR<7:0> 


SEQ 0164 








MASSBUS RH70 AND RH11, Lay or thie 
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073030 


073130 


073132 
073140 


* QO7=JUN=79 


000776 


012737 


000122 


001214 
00001 
(91102 
001106 


073220 
000340 


106024 
073224 
073132 


073220 


073224 
073224 
073224 


105756 


073060 
000340 


047520 


01115 
06072 


000024 
000026 


000024 


000024 


000024 
000026 


042527 


MACY11 “30A(1052) 12=JUL=79 


J 13 : 
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SCOPE HANDLER ROUTINE 


CLR $ESCAPE 
MOVB #1, SERMAX 


eS THE ESCAPE FROM ERROR ADDRESS 
sONLY ALLOW ONE(1) ERROR ON NEXT TEST 


$OVER: MOV $TSTNM,aDISPLAY : ;DISPLAY TES! NUMBER 

ad $SLPADR, (SP) fit ye ~ Nata ADDRESS 

se x 
$MXCNT: 100 3MAX. NUMBER OF ITERATIONS 
~SBITL POWER DOWN AND UP ROUTINES 
SAAR RARER EERE EERE ERE EERE RARE EERE EERE KEKE REE ee 

“POWER DOWN ROUTINE 
$PWRDN: MOV A$ILLUP,@#PWRVEC 3;SET FOR FAST UP 

MOV #340, /AAPURVEC +2 ::PRIO: F 

MOV RO,- 3;PUSH RO ON STACK 

MOV “ R1 niep) 73PUSH R171 ON STACK 

MOV R2.=(SP) 7ZPUSH R2 ON STACK 

MOV R3,-(SP) ;ZPUSH R3 ON STACK 

MOV R4,-(SP) 7zPUSH R4 ON STACK 

MOV" R5,-(SP) :zPUSH RS ON STACK 

MOV @SWR,-(SP) 2 ¢PUSH @SWR ON STACK 

MOV SP, $SAVR6 sSAVE SP 

as #SPWRUP, @APWRVEC 3SET UP VECTOR 

HAL 

BR 7-2 7 HANG UP 
e DORR ERR ERR ERR EERE REE ER ERR EEERER EERE 
:POWER UP ROUTINE 
$PWRUP: MOV #SILLUP,@#PWRVEC ;;SET FOR FAST DOWN 

MOV $SAVR6,SP ::GET SP 


CLR $SAVR6 7zWAIT LOOP FOR THE TTY 


1$: INC $SAVR6 siWAIT FOR THE INC 
BNE 1$ s3 WORD 
MOV (SP) +,@SWR 3zPOP STACK INTO a@SWR 
MOV (SP)+,R5 :7POP:-STACK INTO R5 
MOV (SP)+,R4 7zPOP STACK INTO R4 
MOV (SP)+,R3 3zPOP STACK INTO R3 
MOV (SP)+,R2 3zPOP STACK INTO R2 
MOV (SP)+,R1 2 ¢POP STACK INTO R1 
MOV (SP) +,RO 33POP STACK INTO RO 
MOV ASPWRDN, @APWRVEC : inte UP THE POWER DOWN VECTOR 
* MOV #340, QAPWRVEC+2 : RI0:7 
TYPE <heponi THE POWER FAILURE 
$SPWRMG: se $POWER szPOWER FAIL MESSAGE POINTER 
$ILLUP: HALT 32 THE POWER UP SEQUENCE WAS STARTED 
BR .72 :; BEFORE THE POWER DOWN WAS COMPLETE 
$SAVRE: 0 :zPUT THE SP HERE 
$POWER: .ASCIZ <15><12>''POWER"' ‘ 


oE VEN 


SEQ 0165 


SSBUS RH70 AND RH11 wy oy alee 
CZRHBE P11 


073236 


073360 


073362 


073402 


07=JUN=79 


105737 


013746 
105366 


000770 


112716 
004737 
132737 
001372 
005726 


13:4 


001157 
000002 


000002 
000011 
000200 


073452 


073406 
001156 


001154 
000001 


073406 
073452 


000040 
073406 
000007 073452 
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TYPE ROUTIN 
-SBTTL TYPE ROUTINE 


Zé RRR RARER EERE KERR ERE 


:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
anti. WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED: 


$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


* *NOTE2: $F ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
“CALL 
141) USING A TRAP INSTRUCTION 
te . TYPE »MESADR 72MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
:*0 
® TYPE 
* MESADR 
$TYPE: TSTB $TPFLG 31S THERE A TERMINAL? 
BPiL 1$ : : BR IF YES 
HALT S:HALT HERE IF NO TERMINAL 
BR 3$ SZLEAVE 
1$: ° MOV RO,-(SP) 72 SAVE RO 
MOV a2(SP),RO 32GET ADDRESS OF ASCIZ STRING 
2$: MOVB (RO) +,=(SP) 3zPUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ 37BR IF IT ISN'T THE TERMINATOR 
TST (SP) + zc IF TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO RESTORE RO 
3$: ADD #2, (SP) fete a RETURN PC 
RTI RETURN 
4$: ty eit BRANCH IF <HT> 
EQ 
CMPB ACRLF, (SP) 7 ZBRANCH IF NOT <CRLF > 
BNE 5$ 
TST (SP) + ; POP <CR><LF> Foul 
TYPE sTYPE A CR AND L 
$CRLF 
CLRB $CHARCNT 3zCLEAR CHARACTER COUNT 
BR 2s ‘ :iGET NEXT CHARACTER 
5$: JSR PC, $TYPEC 3:GO TYPE THIS CHARACTER 
6$: CMPB $FILLC,(SP)+ z21S IT TIME FOR FILLER CHARS. ? 
BNE 2$ IF NO GO GET NEXT CHAR. 
MOV $NULL ,-(SP) T:GET # OF FILLER CHARS. NEEDED 
;zAND THE NULL CHAR 
7$: DECB 1(SP) >:DOES A NULL NEED TO BE TYPED? 
BLT 6$ ::BR IF NO=--GO POP THE NULL OFF OF STACK 
JSR PC, $TYPEC 32GO TYPE A NULL 
DECB $CHARCNT :2DO0 NOT COUNT AS A COUNT 
RR 7$ ‘ ;;LOOP 


sHORIZONTAL TAB PROCESSOR 


&$: MOVB #' ,(SP) isk os be. WITH SPACE 
: JSR PC, $TYPEC STYPE A SPACE 
BITB . #7.$CHARCNT ‘BRANCH iF NOT AT 
BNE I$ STAB STOP 


TST (SP) + 3zPOP SPACE OFF STACK 


SEG 0166 


MASSBUS RH70 AND RH11 DIAGNOSTIC 
C 79 13:44 


ZRHBE .P11 


073454 


O7=JUN- 


900207 


105536 


000002 
000015 


073452 
000012 


105530 
000002 


000002 


MACY11 30A(1052) 


TYPE ROUTINE 
BR 
$TYPEC: TSTB 
BPL 
MOVB 
C 
BNE 
CLRB 
BR 
1$: ~ CMPB 
BEQ 
INCB 
$CHARCNT: .WORD 
$TYPEX: RTS 


12=JUL=79 


23 

asTPs 
$TYPEC 
2(SP) ,a$TPB 
ACR, 2(SP), 
1$ 


AF, 2(SP) 
$TYPEX 
(PC) + 

0 


PC 


L 13 
10 


:46 PAGE 168 


33GET NEXT CHARACTER 
;2WAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 

7315 CHARACTER A CARRIAGE RETURN? 
sBRANCH IF NO 

:EYESS“CLEAR CHARACTER COUNT 


3728 CHARACTER A LINE FEED? 
;sBRANCH IF YES 

;sCOUNT THE CHARACTER 

7s CHARACTER COUNT STORAGE 


SEQ 0167 


MASSBUS_RH70 AND RH11_DIAGNOSTIC 
79 13:44 


CZRHBE P11 


073456 


07=JUN= 


017646 


001403 


000000 


. 000001 


073703 
000002 


000001 


000006 
000005 


073703 
000006 
073702 


073701 
000012 


673702 
177770 


073701 


073701 
073703 
073700 


* M 13 
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BINARY TO OCTAL (ASCII) AND TYPE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DIRE IOIIISIIISIIIOIIOIUIDIIIUIUISISIDIUIDISIIOIOIOIIUIUIUIUIUIOIUIOIOIIIIDIOIOIIUIUIDIUIUIINON I not 

“THIS ROUTINE IS -USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6=DIGIT 
>*OCTAL (ASCII) NUMBER AND TYPE IT. 

Sp seri capi HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


2*C : 

3* MOV NUM, =(SP) 7 NUMBER TO BE TYPED 

i* TYPOS 3:CALL FOR TYPEOUT 

3% -BYTE N ; 3zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3* -BYTE ™ ‘ 73M=1 OR 0 

3” 4d ly LEADING ZEROS 

sf ;0=SUPPRESS LEADING ZEROS 


3 *$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
hyn OR $TYPOC 
:*CALL: 


‘* MOV NUM,=(SP) -—s«s ;NUMBER TO BE TYPED 


i TYPON ~ PHCALL FOR TYPEOUT 

: STYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
Se 2 MOY NUM.=(SP) ::NUMBER TO BE TYPED 
$TYPOS: MOV = @(SP),~(SP) —-; ;PICKUP_THE MODE 


MOVB 1(SP) ,SOF ILL 2 ¢LOAD ZERO FILL SWITCH 
MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 


ADD #2, (SP) + : ADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB #1,$0F ILL 7zSET THE ZERO FILL SWITCH 
MOVB #6, SOMODE +1 72:SET FOR SIX(6) DIGITS 
$TYPON: MOVB #5, $0CNT 2éSET THE ITERATION COUNT 
MOV R3,~-(SP) ZZ SAVE R3 
MOV R4,-(SP) SZ SAVE R4 
MOV R5,-(SP) 77 SAVE R5 
+b SOMODE +1. RG 3iGET THE NUMBER OF DIGITS TO TYPE 
ADD a. R4 3: SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4,$0MODE si SAVE IT FOR USE 
MOVB SOFILL,R4 3iGET THE ZERO FILL SWITCH 
MOV 12(SP),R5 2 PICKUP THE INPUT NUMBER 
CLR R3 sCLEAR THE OUTPUT WORD \ 
1$: ROL R5 + ROT ATE MSB INTO ‘'C'' 
BR 3$ 3:60 DO MSB 
2$: ROL R5 :7FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 : 
3$: ROL a3 3:GET LSB OF THIS sper 
DECB SOMODE 2s TYPE THIS DIGIT 
BPL ;BR IF NO 
BIC #177770,R3 :2GET RID OF JUNK 
BNE 4$ :: TEST FOR 0 
TST R4 3; SUPPRESS THIS 0? 


BEQ 5$ :;BR IF YES 


SEQ 0168 


N 13 
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8861 052 4$: 
000060 5 


073700 7$: 


000002 000004 


073702 


46 PAGE 170 


3: DON'T SUPPRESS ANYMORE O'S 
3iMAKE THIS DIGIT ASCII 
7Z:MAKE ASCII IF NOT ALREADY 
37 SAVE FOR TYPING 
3;GO TYPE THIS DIGIT 
+ ¢ COUNT BY 1 

;BR IF MORE TO DO 
+ =BR IF DONE 
32 INSURE LAST DIGIT ISN'T A BLANK 
:2GO DO THE LAST DIGIT 
7 ZRESTORE RS 
ZZRESTORE R4 
Z RESTORE R3 
73SET THE STACK FOR RETURNING 


3 ZRETURN 

3zSTORAGE FOR ASCII DIGIT 

32 TERMINATOR FOR TYPE ROUTINE 
szOCTAL DIGIT COUNTER 

32ZERO FILL SWITCH 

7 NUMBER OF DIGITS TO TYPE 


SEQ 0169 
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B 
MASSBUS RH70 AND RH11 wy tr alg 12=JUL=79 
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-SBTTL. CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


073704 


010046 


012602 


020200 
000020 
000055 


074120 
000040 


074110 


000001 
000060 
000040 


000010 


177777 


000001 


177777 


177776 





IIIT TE REITER EEE ERE EERE REE TERRE Ee 

SS THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5=DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
> *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


3*CALL: 


$TYPDS: 


1$: 
2s: 
3$: 


4S: 


5$: 


6$: 
7$: 


8$: 


9$: 


MOV 


TYPDS 


NUM ,= (SP) 


RO,-(SP) 


#20200, - (SP) 
+ tie oR5 
as 

#'=,1(SP) 


R 
ASDBLK ,R3 
+ ,(R3)+ 


2 
me 


(SP) + 

9$ 

-1(SP) ,=2(R3) 
(R3) 

(SP) +,R5 


(SP)+,R3 
(SP)+,R2 


:sPUT_THE BINARY NUMBER ON THE STACK 
72G0 TO THE ROUTINE 


77PUSH RO ON STACK 

:7PUSH R1 ON STACK 

32PUSH R2 ON STACK 

77PUSH R3 ON STACK 

77PUSH R5 ON STACK 

2eSET BLANK SWITCH AND SIGN 
:GET THE INPUT NUMBER 

:ZBR IF INPUT IS POS. 

7ZMAKE THE BINARY NUMBER POS. 

7zMAKE THE ASCII NUMBER NEG. 

7 ZERO THE CONSTANTS INDEX 
;SETUP THE OUTPUT POINTER 

::SET THE FIRST CHARACTER TO A BLANK 

;:CLEAR THE BCD NUMBER 

78 THE CONSTANT 
it ge A a BCD DIGIT 


:BR 
 EINCREASE THE BCD DIGIT By 1 


;zADD BACK THE CONSTANT 
7:CHECK_IF BCD DIGIT=0 
32FALL THROUGH IF 0 
:sSTILL DOING LEADING 0°S? 
se IF YES 


se 
oe 


ae IF NO 
33YES--SET THE SIGN 
2 MAKE THE BCD DIGIT ASCII 
sMAKE_IT A SPACE IF NOT ALREADY A DIGIT 
::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3sJUST INCREMENT ING 
3sCHECK THE TABLE INDEX 
:#G0 DO THE NEXT DIGIT 


bg TO ASCII 
WAS THE LSD THE FIRST NON-ZERO? 


;BR IF NO 
>7YES--SET THE SIGN FOR TYPING 
33SET THE TERMINATOR 
7sPOP STACK INTO R5 
3sPOP STACK INTO R3 
2sPOP STACK INTO R2 


MASSBUS + aad AND RH11 DS ort te 
CZRHBE .P11 07= 


074120 


~JUN=79 
012601 


900004 


13:4 


074120 
000002 000004 
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(SP)+,R1 :zPOP STACK INTO R1 
(SP)+,RO 7zPOP STACK INTO RO 

, SDBLK 3zNOW TYPE THE NUMBER 
2(SP) ,4(SP) ;ZADJUST THE STACK 
(SP) +, (SP) 


7 ZRETURN TO USER 


$DIBL: 


$DBLK: 


SEQ 0171 
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HBE . 


074130 


O7e1 a4 
074146 
074152 


074260 


07=JUN=7 


104401 


001004 


013746 
104402 


000207 
013046 


074264 


13:44 


001223 


001774 


001116 


001226 
074202 


001223 
074220 


001223 


001223 


074260 
000 
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- SBITL 


D 
12=JUL=79 


14 
10:46 PAGE 173 


ERROR MESSAGE TYPEOUT ROUTINE 


~ cpt gg ingles iano tasmanian ae hi tachintaah ts nalipieclon thatn 


“RTHIS ROUTINE USES THE ° 
:*ERROR IS TO BE REPORTED. 


ITEM CONTROL BYTE'’ ($ITEMB) TO DETERMINE WHICH 
IT THEN OBTAINS, FROM THE “ERROR TABLE’ ($ERRTB), 


;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


$ERRTYP: 


1$: 


8$: 


TYPE -$CRLF 

MOV ROQ,-(SP) 
CLR RO 

BISB a4$ 1 TEMB,RO 
BNE 1$ 

MOV $SERRPC = (SP) 
TYPOC 

BR 6$ 

DEC RO 

ASL RO 

ASL RO 

ASL RO 

ADD ASERRTB,RO 
MOV (RO) +,2$ 
BEQ 3$ 

TYPE 

«WORD 0 

TYPE - $CRLF 

MOV (RO) +,4§ 
BEQ 5$ 

TYPE 

«WORD 0) 

TYPE -$CRLF 

MOV (RO) ,RO 
BNE 7$ 

MOV (SP) +,RO 
TYPE -$CRLF 

RTS PC 

MOV* @(RO)+,-(SP) 
TYPOC 

TST (RO) 

BEQ 6$ 

TYPE 8% 

R 7$ 

ASCiz f / 


32''CARRIAGE RETURN'' & ‘LINE FEED’’ 
i3SAVE RO 
:sPICKUP THE ITEM INDEX 


331F ITEM NUMBER IS ad JUST 
:sTYPE THE PC OF THE ERROR 
3sSAVE $SERRPC FOR TYPEOUT 
4h og ADDRESS 
0 —_ ASCIICALL DIGITS) 


GET 
3 TADJUST THE INDEX SO THAT IT WILL 
oe WORK FOR THE ERROR TABLE 


32FORM TABLE POINTER 
3zPICKUP ‘ERROR MESSAGE’’ POINTER 
3zSKIP TYPEOUT IF NO POINTER 
sc TYPE THE ‘ERROR MESSAGE" 
z2'ERROR MESSAGE'' POINTER GOES HERE 
ic’ ‘CARRIAGE RETURN’’ & ‘LINE FEED'’ 
;zRICKUP ‘DATA HEADER'' POINTER 
4 TYPEOUT IF 0 
TYPE THE ‘DAT A HEADER"' 

t:'DATA HEADER*’ POINTER GOES HERE 
72" CARRIAGE RETURN'’ & ‘LINE FEED‘ 

ZPICKUP ‘DATA TABLE'’ POINTER 
::G0 TYPE THE DATA 
RESTORE RO 
‘ Gh my tae RETURN'' & ‘LINE FEED" 
ie TURN 


::SAVE a(RO)+ FOR TYPEOUT 
::GO TYPE=-OCTAL ASCII(ALL DIGITS) 
21S THERE ANOTHER NUMBER? 

i: TYPE TWO(2) SPACES 


L 
::TWO(2) SPACES 


SEQ 0172 
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-SBTTL ERROR HANDLER ROUTINE 


IIIS IOIISIUIOIOISIIDIDIISIIUIDIDIOIOIIUIUIUIUIUIIIUIUIUIOIIUUUI RnR h tt thintn 
SS THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO TSTNMB ON ERROR 
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;*SW15=1 HALT ON ERROR 


L 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 


N ;ERROR=EMT AND N=ERROR ITEM NUMBER 


$SERROR: 

001103 7$: SERFLG fhe THE ERROR FLAG 

7$ ;DON'T LET THE FLAG GO TO ZERO 
001102 104642 $TSTNM, @DISPLAY : sDISPLAY TEST NUMBER AND ERROR FLAG 
002000 104632 #B1T10,aSWR SIRELL ON ERROR? 

1$ 2éNO - ip 

: $SERTTL ;COUNT THE NUMBER OF ERRORS 
(SP) , SERRPC “GET ADDRESS OF ERROR INSTRUCTION 


:STRIP AND SAVE THE ERROR ITEM CODE 
020000 ie SKIP TYPEOUT IF SET 
20$ SKIP TYPEOUTS 
050104 ::GO TO USER ERROR ROUTINE 


737 
104491 001223 


005777 104554 $: 2 ¢HALT ON ERROR 
100001 3$ ‘ sSKIP IF CONT INUE 
2 HALT ON ERROR! 
001000 104542 ; #BIT09,aSWR er ee SWITCH SET? 


4$ ; 
001110 $LPERR, (SP) sFUDGE RETURN FOR LOOPING 
001214 : ! — ge 4 ale ESCAPE ADDRESS 
013716 001214 $SESCAPE , (SP) FUDGE RETURN ADDRESS FOR ESCAPE 


074416 000002 ; +: RETURN 
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9037 -SBITL TTY JNPUT ROUTINE 
9038 
9039 . SEERA REE REE RRR E REE E EERE RERE REE O RRR EE RHEE ee 
3040 “ENABL LSB 
9041 
9042 .DSABL LSB 
9043 
9044 
9065 . SAREE EERE REE EER EERE EERE REE E EERE REE EEE 
oe bite ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
>*CALL: 
9948 te RDCHR 2 ¢ INPUT A SINGLE CHARACTER FROM THE’ TTY 
3049 * RETURN HERE ZCHARACTER 1S ON THE STACK 
onet rf + WITH PARITY BIT STRIPPED OFF 
9052 
9053 074420 011646 $RDCHR: MOV (SP) ,-(SP) 7ZPUSH DOWN THE PC ©, 
9054 074422 016666 000004 000002 MOV 4(SP) ,2(SP) :: SAVE THE PS 
9055 074430 105777 104510 1$: TSTB agT KS WAIT FOR 
9056 074434 100375 BPL 1$ A CHARACTER 
9057 0764436 117766 104504 000004 MCVB a$TKB,4(SP) «TREAD THE TTY 
9058 074444 042766 177600 000004 BIC #C<177> 4(SP) ::GET RID OF JUNK IF ANY 
9059 074452 026627 000004 000023 CMP 4(SP) ,A2 :z1S IT A CONTROL=-S? 
9060 074460 001013 BNE 3$ ;:BRANCH IF NO 
9061 074462 105777 104456 23: TSTB a$TKS WAIT FOR A CHARACTER 
9062 074466 150375 BPL 2$ ::LOOP UNTIL ITS THERE 
9063 074470 117746 104452 MOVB  a@$TKB,-(SP) +:GET CHARACTER 
3064 074474 042716 177600 BIC #°0177, (SP) *3MUKE IT 7-BIT ASCII 
9065 074500 022627 000021 CMP (SP) +,#21 71S IT A CONTROL-Q? 
3066 974504 001366 BNE 2$ :IF NOT DISCARD IT 
9067 074506 000750 BR 1$ IVES, RE SUME 
9068 074510 026627 000004 000140 38: CMP 4(SP) 4140 11S IT UPPER CASE? 
9069 074516 002407 BLT 4$ “BRANCH IF YES 
9070 074520 026627 000004 000175 CMP 4(SP) ,4175 i218 IT A SPECIAL CHAR? | 
907.1 074526 003003 BGT 4 ; BRANCH IF YES 
9072 074530 042766 000040 000004 BIC #40,4(SP) ::MAKE IT UPPER CASE 
9073 074536 000002 4$: RTI ::GO BACK TO USER 
9074 \ see gpatndprete teeny itachi eigen teeta anaes labs tag cle Se ital ig i 
oor Sear ROUTINE WILL INPUT A STRING FROM THE TTY N 
S*CALL: 

9077 pai ae RDLIN tz INPUT A STRING FROM THE TTY 
9078 it RETURN HERE ZzADDRESS OF FIRST CHARACTER WILL BE JN iHE STACK 
at o* ; 32 TERMINATOR WILL BE A BYTE OF ALL O'S 
5081 074540 010346 $RDLIN: MOV R3,-(SP) rrSAVE R3 
9082 074542 012703 074646 1$: MOV ASTTYIN,R3 7:GET ADDRESS 
9083 074546 022703 074656 2$: CMP #STTYINGS, ,R3 : :BUFFER FULL? 
9084 074552 101405 BLOS 4% :2BR IF YES 
9085 074554 104406 RDCHR :GO READ ONE CHARACTER FROM THE TTY 

074556 112613, MOVB (SP) +, (R3) :GET CHARACTER 
9087 074560 122713 000177 10$: CMPB—s #177, (R3) 1215 IT A RUBOUT 
9088 074564 001003 BNE . 3$ ::SKIP IF NOT 
9089 074566 104401 001222 4$: TYPE , SQUES sTYPE A '?' 

074572 000763 BR 1$ 22 CLEAR THE BUFFER AND LOOP 
9091 074574 111337 074644 3$: MOVB (R3) ,9$ SECHO THE CHARACTER 
9092 074600 104 


401 074644 TYPE A 


1 
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122723 000015 #15, (R3)+ zi CHECK FOR RETURN 
2$ LOOP IF NOT RETURN 
177777 =1(R3) ZZ CLEAR RETURN (THE 15) 
001224 ,$LF sc TYPE A LINE FEED 
(SP) +,R3 s RESTORE R3 
(SP) ,=(SP) :;ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4(SP),2(SP) 33 FIRST ASCII CHARACTER ON IT 
074646 000004 A$TTYIN, 4(SP) ont 
7 RETURN 


98: 0 zi STORAGE FO FOR ASCII CHAR. TO TYPF 
$TTYIN: . 8. ; RESERVE 3 BYTES FOR TTY INPUT 
005015 000 $CNTLU: . /*U/<15><12> 7 CONT ROL ‘U"’ 
000012 $CNILG: . /*G/<1§><12> [CONTROL ‘'G'’ 
020122 $MSWR: .ASCIZ <15><12>/SWR = /° 


053505 $MNEW: .ASCIZ / NEW = / 


040 
074706 000040 








Pi} 


MASSBUS RH70 ~ RH11 Rha tot dee 


CZRHBE . 


oO 


ODOOOOO 
— 3 


9119 


074712 


075010 
075072 


7=jUN=7 


000000 © 


000004 000002 


02 
y 177770 


000012 
075012 
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-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


bd Seumnqeeareeeteuwnebeneesoernceqeserterneeneuensnneesanveneinnee 


T*THIS “ue ed WILL es: AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY 


s*CALL: 
te RDOCT 7¢READ AN OCTAL NUMBER 
i* RETURN HERE : 3zLOQW ORDER BITS ARE ON TOP OF THE STACK 
:* HIGH ORDER BITS ARE IN $HIOCT 
$RDOCT: MOV (SP) ,=(SP) : PROVIDE SPACE FOR THE 
MOV 4(SP) ,2(SP) 33, INPUT NUMBER 
MOV RO,-(SP) 37PUSH RO ON STACK 
MOV R1,-(SP) ;zPUSH R1 ON STACK 
MOV R2,-(SP) 37PUSH R2 ON STACK 
1$¢ RDLIN 3 3READ AN ASCIZ LINE 
. MOV (SP)+,RO 3:GET ADDRESS OF 1ST CHARACTER 
CLR R1 szCLEAR DATA WORD 
CLR R2 
2: MOVB (RO) +,=(SP) 7zPICKUP THIS CHARACTER 
BEQ 3$ sc1IF ZERG GET QuT 
ASL Ri see 
ROL R2 A 
ASL R1 - 5386 
ROL R2 
ASL R1 228 
ROL R2 
BIC #*°7, (SP) 2zSTRIP THE ASCII JUNK 
ADD (SP)+,R1 2 ¢ADD IN THIS DIGIT 
; BR 2% 32LO0OP 
38: TST (SP) + +> CLEAN TERMINATOR FROM STACK 
MOV R1,12(SP) ri SAVE THE RESULT 
MOV R2,$HIOCT 
MOV (SP) +,R2 7zPOP STACK INTO R2 
MOV (SP) +,R1 3zPOP STACK INTO RI 
MOV (SP)+,RO 3zPOP STACK INTO RO 


RTI RETURN 
$H[OCT: .WORD 0 : ZIHIGH ORDER BITS GO HERE 


SEG 0176 
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: .SBITL TRAP DECODER 


DEUS UIUIIOISIOIUIDIUIIOIIOISIOISIIUIIOIIOIOIIDIIIUIDIIISIIIIUIOU I Etnies 
THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

> *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. ’ 


075014 010046 STRAP: RO,-(SP) ZzSAVE RO ‘ 
000002 M ::GET TRAP ADDRESS 
7 BACKUP BY 2 
pat RIGHT BYTE OF TRAP 
R POSITION FOR INDEXING 
169 075950 $TRPAD (RO) ,RO : INDEX TO TABLE 
000200 RO :3G0 TO ROUTINE 


ieTHIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 


011646 3 $TRAP2: MOV —- (SP) ,=( SP) ::MOVE THE PC DOWN 
04666 000004 000002 MoV . 4(SPS,2(SP)  ;MOVE THE PSW DOWN - 
000002 RTI 3 GGRESTORE THE PSW 


-SBTJL TRAP TABLE 


7*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
>*BY THE ‘'TRAP’' INSTRUCTION. 


: ROUT INE 


075050 075036 $TRPAD: . _ STRAP2 
; $ 2s CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
33 CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
22 CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
= i 3:CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
073704 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


074420 : $RDCHR = ;;CALL=RDCHR TRAP+6(104406) i TYPEIN CHARACTER ROUTINE 
075066 074540 - $RDLIN 3;CALL=RDLIN TRAP +7( 104407) TY TYPEIN STRING ROUTINE 
075070 ae : $RDOCT ;;CALL=RDOCT TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 
Q J 
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052525 2806 3180 5454 5736 =6 6018 ~—— 6 300 
"4 . 27634 
‘20364 


oath mh te a th tt ea 


001000 
003414 


003416 


012272 


004144 
004176 
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BEGIN2 004166 


BITCNT 


003446 


* 
uw 
> 
R 


6615 
6388 
6458 
68454 


MACY11 30A(1052) 
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8659 
8667 


63934 


9029 


6 
6318* 
6652* 


181 


6 
6745* 


SEQ 0179 


MASSBUS_RH70 AND RH11_DIAGNOSTIC 
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BMD18 = 010000 


050060 


013700 


2798 
28024 
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6.594 
6754 


2877* 
4437 


SEQ 0180 





ean RH70 AND rE Ne ws he 


CZRHBE .P11 07=JUN= 


DDISP = 
LTA 


177570 
003366 
003370 


003372 
003374’ 
003400 


072314 


072334 
072354 


000174 


13:4 
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6476 
1927* 
2000* 


1311 
1275 


1489 
695 
817 


1322 


84444 


84644 


1472 1477 1487 
666 676 684 693 
789 797 807 815 


84064 
9013* 


85524 
706 
828 


1327 


83824 
704 
826 


2006 


6513 
6524 


6496* 


718 
85464 


1333 


716 
83408 


6507* 


6518* 


SEQ 0181 


6529* 
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100000 
000001 


nun 


8522H 


1488 85074 
94 705 717 724 


072066 
072020 6 
816 827 84984 


072074 


3844 3945 6767 
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EMTVEC= 000030 1808* 
EM1 055040 0 72844 , 


ee ed ed eed od ed 
a SS 3H 9 9 SS YS oS =O 
AUS SUWANRH HS| DOW 

“Ww 


— 3 3.) 3) 23) 3) 3 


— 3 od 3 I) — od 3 D-H 


; 
6 
: 
8 
6 
3 
8 
6 
3 
9 
4 
9 
5 
1 
6 
1 
3 
7 
3 
9 
4 
1 
7 
3 
9 
1 
5 
0 
5 
0 
6 
2 
? 
2 
1 
7 
2 


00 SIOO NWO OS MU & BWP = OO OCR NIN 


— 3 
MOMMA NMNINYNINININIMNIDANINNINN Sa 


065511 
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BHP WBnH BA AHWH BH KAO 


Co 
—_D 
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050210 


6 62 6 64 
000004 1912* 
2044* 2056* 2061* 8651* 


006546 


034062 
0034 36 


R 025216 
EVENAD 004000 
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4932 4988 4990 5025* 5026 5088 5089* 5128 5184 5313* 5319 5368 5460 
5509 5595* 5601 5650 5742 5791 5877* 5883 5932 6024 6073 6159* 6165 
6211 6214 6306 6352 6355 8525 


FAKE70 006474 2056 20604 
FANG 033336 4985 50744 
FANGIE 021306 3516 36114 
ANGY 034142 5085 51764 
FAST 033124 5031 5036 5038 50404 
FERR = 000004 15874 
FIND 050010 2164 67804 
FINDIT 047714 : 2147 67654 
020524 3425 35044 
FITIT 020060 3424 34264 
FOOEY 025200 4173 41764 
FOUND 050034 2142 67854 
FROG 924124 3929 40204 
GAP = = 000020 16174 
GIGO 005246 vise. Tor 2001 6492 6503 
GIGO1_ 005422 1934 19394 1958 6508 
GIG02 00 1955 19604 1979 6519 
GIGO3 005722 1976 19814 1998 6530 
GIGO4 006146 1938 1959 1980 1999 20084 , 
GIG] 005260 1916 19184 1932 1935 
GIG2 005434 1940 19428 
GIG3 005574 1961 19634 
GIG4 005734 1982 19844 
GI 005402 1931 19364 
GI2 005542 1952 19574 
GI3 005702 1973 19784 
GI4 06034 1994 19974 
GNS == *eeeee YY 476 1838 1842 1873 1879 1885 1924 1945 1966 1987 2004 2051 2066 


GO - 001 15524 3091 3233 3338 3428 3535 3640 3743 3844 3945 6767 
F 12034 25634 

GOOFED 013124 27044 

5370 1929 19334 
GO2 005530 1950 19544 
GO3 005670 1971 19754 

06030 1992 19964 , 

HEADER 072412 6808 85674 
HEDADD 050200 6810* 68134 
HEDDAD 003460 17474  6808*  6809* 6810 
HED1 050342 68514 8568 
HED1O0 050641 8575 
HED11 050705 68954 8576 
HED12 050736 69004 8577 
HED13 050766 69044 8578 
HED14 051077 69094 8579 
HED15 051047 69144 8580 
HED16 051077 69194 8581 
HEDi7 051137 69254 8582 
HED2 050402 68574 8569 
HED2ZO 051177 69314 8583 


HED21 8051241 69374 8584 
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HED22 051303 694724 8585 
HED23 051346 69494 8586 
HED24 051422 6957# 8587 
HED25S 051464 69634 858 
HED26 §=051526 69694 8589 
HED27 051570 69754 8590 
HED3 050427 68614 85706 
HED30 =: 9551632 69814 8591 
HED31 = 051674 69874 8592 
HED32 3 =051741 69944 8593 
HED33 =©052021 70034 8594 
HED34 052076 70114 8595 
HED35 052153 70194 8596 
HED36 §=052231 70274 8597 
HED37 = =©052305 70254 8598 
HED4 0466 68674 8571 
HED4O 38 =052377 70454 8599 
HED41 052464 70544 8600 
HED42 052530 70604 8601 
HEDS3 052601 70674 8602 
HED44 052657 70754 8603 
HED45 052746 70854 8604 
HED46) 3 =053011 70914 8605 
HED47 053076 71004 8606 
HEDS 050525 68734 8572 
HEDSO 053155 71084 8607 
HEDS1 053242 71174 8608 
HEDS2 053321 71254 860° 
HEDS3 053400 71334 8610 
HED54 053444 71394 8613 
HEDSS 053510 71454 8612 
HED56 053547 71514 8613 
HEDS7 053623 71594 8614 
HED6 050556 68784 8573 
HED60 053672 71664 8615 
HED61 053745 71744 8616 
HED62 054013 71818 8617 
HED63 4066 71894 8618 
HED64 054135 71964 8619 2 
HED65 054210 - 72044 8620 
HED66 §=05425¢ 72114 8621 
HED67 38054332 72194 8622 
HED7 050610 68834 8574 
HED70 §=054401 72264 8623 
HED71 054455 72344 8624 
HED72 054523 72414 8625 
HED73 054577 72498 26 ‘ 
HED74 054646 72564 8627 
HED75 054722 72644 8628 
HED76 54770 72714 8629 
HERADD= 177742 16564 6721 
HERE 007326 22034 2229 
HIBYTE 012206 2584 

= 000011 3684 8764 8805 
HURTS 010462 56 5 


23 
ICPA = 000010 15884 
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000020 : 
000100 2071, 3338 = 3428 © «3535 3640 37433844 39455191 5192 6393 . 


034454 : 
3570 3675 6792 
3881 


nuenoewe 


5892 5893 6019 6026 6031 6032 6033 


ts 


51744 


2749s 2799s 6450*  .6454* 


000002 1 5 5 | 5751. 
020000 es c ZBL4 
024224 
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046676 

046666 : 

000400 i 3267 3359 3408 3462 3777 ; 4067 
024356 

001000 3267 3462 3569 3813 3933 
4067 

014244 
000100 
010000 3267 3462 3569 5777 3 4067 


021330 3622 
004000 3161 ) 3372 3462 3777 4067 


046564 
000001 ‘ 
125252 ¢ 3217 5250 5313 Sea 5595 5 5877 


014244 
004002 tee. 4720 4826 4990* 5365 5788 


003456 
003402 2015* 2016* 2017 6538* 6545* 


2802 6632 
2365 2373 3 2809 2 2847 


3462 3569 


38424 


3338 3428 3535 3640 3743 6443 6744 


8696* 8697" 8706" 8712" 8724 
2 2153* 2158 2165* 2170 : 5249" 5287 
5390 5430 5530 5531" 5569 é $710 $712 





MASSSUS RR70 AND RH11 By we igen 


CZ7RHBE F717 O7=JUN=7 


_ 
— 
= 


004102 


000200 


013566 
0 


003334 
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CROSS REFERENCE TABLE == USER SYMBOLS 


5953 5954* 5992 6094 6095* 
6713 6721* 6722 6728* $729 


62 36* 
8510 


2 36ee 


SEG 0190 
6705* 
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RHBAE 003360 2017* 2289s 
2398 é 


RKCS1 =: 003330 


RHCS1B 003364 
RH(S2 = 003340 
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RHDB 003352 16374 2327* 2358 2751* 2785 2787 2807* 2838 2840 2845* 2877 
RHDT 003356 16394 2026 2186 2392 2410 
RHER 003344 16344 2132 2135 2158 2216 2265 2305 2352 2490 2525 2552 2576 2625 


RHMR1 = 003354 16384 = =4028* 5314" 5327" §326% 5327e 5328x 5329% 5330% 5455" 5462" 5467" 5468 


RHMR2 = 003336 16314 2030 2090 2218 2267 2307 2354 2492 2527 2554 2578 2627 2667 


RHNINT 044636 ~ 6392 64114 6845 . 
RHST - 003342 16334 2125 2128 2165 2215 2264 2304 2351 2489 2524 2551 2575 2624 


RH™TDB.. 003350 16364 = =—2217 2266 2306 2353 2491 2526 2553 2577 2626 2666 2694 2718 


6355 
RHTEST 006352 2035 20404 
RHVEC 003316 14994 i : 
RHWC 003332 16294 2200" 2201 2205 2219 2222 2225 ees) * 2235 2254 22% 2341 2479 
2508* 2509 2514 2534* 2535 2536 2541 2557* 2558 2559 2565 2580 2581* 


2 5 55 
5597* 5626 5644 5670* 5691 5738* 5767 5785 5811* 5832 5879* 5908 5926 
5952* 5973 6020* 6049 6067 6093* 6114 6161* 6190 6208 6234" 6255 6302* 


RHWOA = =—011606 2530 2533m 
RHWOT = =9011424 25084 2532 
RH11 006540 2044 - 2054 2059 20694 


RH11BA 006406 20484 


MASSBUS RH70 AND RH11 “BIAgNostic 


CZRHBE P11 
RH70BA 006502 
RH70TT 006450 
RITEON 033302 
RITURN 046724 
RMBEX = 000040 
RMR = 000004 
ROTEEN 045604 
SA200 005274 
sc = 10000 
SCLK = 00001 
SEARCH= 000031 
SKIPIN 004624 
SLEUTH 004640 . 
SLKM = 001000 
SNAFOO 010566 
SPLIT 034466 
SRO S172 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
STACK = 000750 
START 004214 
STKLMT= 177774 
SUPER 033256 
SwWR 001140 
SWREG 000176 
SwO = 000001 
SwOO = 000001 
SwO1 = 000002 
SWO2 = 000004 
SwO3 = 000010 
SWO4 = 000020 
SwOS = 000040 
SwO6 = 000100 
SwO7 = 000200 
SwWO8 = 000400 
SwO9 = 001000 
SWI = 000002: 
Sw10 = 002000 
SW11 = 004000 
SW12 = 010000 
SwW13 = 020000 
SW14 = 040000 
SW15 = 100000 
SW2 = 000 
SW3 = 000010 
SW4 = =: 000020 
SW5 = 000040 
SW6 = 10 
SW7* = 0002 
SW8 == 000400 
SW9 == 001000 


1857 
17964 


1822* 
9029 


6612 
3298 


3298 
3298 


MACY11 30A(1052) 
CROSS REFERENCE TABLE == USER SYMBOLS 


1824 


6802 
3403 


3403 
3403 


L 
12=JUL.=79 


1830* 


6824 
3493 


3493 
3493 


8645 


3600 


3600 
3600 


15 
10:46 PAGE 


8659 


3705 


NIG 
~™N 
oo 
VI 


195 


8661 


3808 


3808 
3808 


8667 


3909 


8674 


4010 


8704 


8717* 


SEQ 0193 


5752 


9014 
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es 000014 4604 
TC 003440 1677# =2218* 2267 = 2307» = 2354% = 2492 = 2527e = 254% = 2578 = 2627* = 2667" = 26 95*® =. 2719 


° ieite bots a 5563* 5639* 5704" 5780* 5845* 5921* 5986*  6062* 6127*  6203* 6268+ 
: ‘ ® ® 
TDR 003442 16784 2217" 2266* 2306* 2353* 2491*% 2526% 2553% 2577%  2626%  2666*  2694% 2718s 


THREE 025324 4197 4202 4204 42064 

TIEQUT 046746 1859 1901 1904 1908 1912 66684 

TKVEC = 0 0 4674 

TOIT 010020 2269 2274 22784 

TPVEC = 000064 4684 

TRAPED 047616 6716 67384 

TRAPVE= 000034 4664 1809* 1810* 

TRE = 040000 15604 2113 3114 3116 3122 3133 3256 3258 3264 3275 3361 3363 3369 


3380 3451 3453 3459 3470 3558 3560 3566 3577 3663 3665 3671 3682 
3766 3768 3774 3785 3867 3869 3875 3836 3968 3970 3976 3987 4066 


TREB = 000100 15614 3160 3302 3407 3497 3604 3709 3812 3913 4014 

TRTVEC= 000014 4614 \. 

TSTADD 006252 20224 6557 

TSTIE 034306 5198 5203 5205 52074 : 

TSTNM = =003454 17454 6800* 6801* 6806 6826* 6827* 6832 8490 8492 8494 8496 8498 8500 


8502 8505 8507 8508 8510 8512 8514 8516 8518 8520 8522 8525 8527 


TSTNMA 050202 6803 6805 68144 
TSTNMB = 050104 68004 9023 
TST1 004546 18544 
TST10 =—.010614 23894 

TST11 «= 011126 24574 

TST12 =©011414 25064 
TST13. =—012256 26034 

TST14 = =—012474 26454 
TST15) = 0013344 27464 

TST16 «014434 28944 

TST17 ~=—- 015020 2972h 

TST2 006552 1864 20794 
TST20 5466 30644 

TST21 016260 31734 

TST22 017254 33154 

TST23 20040 34204 

TST24 020524 35114 ' 
TST25 21306 36184 

TST26 022056 37234 

TST27 022622 38234 

TST3 007236 21834 

TST30 = 0.23372 39264 

TST31 = 024124 40264 

TST32 024456 40884 

TST33 = 024750 4090 41394 


TST34 025226 4141 41894 
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CZRHBE .P11 O7=JUN=79 13:44 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0195 
TST35 025504 » 4191 42394 

TST36 = 025762 . 424) 42924 

TST37 = 026254 4294 43454 

TST4 007300 21984 

TST40 026546 4347 43984 

TST41 027040 4400 44514 

TST42 =©—027332 4453 45044 

TST43 = 027624 4506 45574 

TST44 = 030116 4559 46104 

TST45 030410 4612 46634 

TST46 =—030702 4665 47164 

TST47 = 031174 4718 47694 

TST5 007606 22484 

TSTSO =. 031466 48228 

TSTS1 031760 4824 48754 

TST52 032252 4877 49284 

TST53S = 032544 4930 49814 

TST54 033336 50824 

TST55 = 034142 51824 

TST56 =©034476 52454 

TSTS7 035040 53114 

TST6 010030 22864 

TST60 035472 53864 

TST61 036034 54528 

TST62 036466 55274 

TST63. = 037030 55934 

TST64 = =037462 56684 

TST65 040024 57344 

TST66 040456 58094 

TST67 = 041020 58754 

TST? 010256 2288 23264 

TST70 = =—041452 59504 

TS771 = 042014 60164 

TST72 042446 60914 ‘ 
TST73 =—043010 61574 

TST74 = 043442 62324 

TST75 4004 62984 

TST76 = 0044436 63714 

TST77 = 045136 64684 

TWANG 33314 5065 50694 

TWANGY 033326 067 5070 50724 

T = 2 16894 2011 2412 2647 6543 6678 6705 
TYPDS = 104405 6592 6658 6662 91844 
TYPE = 104401 1836 1840 1871 1877 1883 1922 1943 1964 1985 002 49 2064 2417 


9092 9096 91804 
TYPOC = 104402 2007 6490 6502 6514 6525 6536 6680 6687 6707 6714 6723 6730 6737 
: 6833 8965 8989 91814 
TYPON = 104404 91834 
TYPOS = 104403 91824 
= 020000 15264 2120 3125 3267 3372 3426 3449 3498 3556 3605 3674 3777 3878 
3979 4067 6787 
UPETRE 017402 3327 3332 3334 33364 ’ 


US? = 000001 15134 6772 
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000002 
000004 
003406 5188+ 
033030 


046362 2238 2273 2539 
2882 66124 


WATFIV 010246 

WATFOR 

w¢ ? 2254* ; 25148 
2 2 


3878 
033730 
0000 


007224 


000051 


000000 
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6023 6035 6096 6099 6164 6176 6237 6240 6305: 6317 6380 6777 


0 
001103 


001115 
074264 
001116 


001226 


9105 
8669*  8684* 8689 
8691 9031 
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SMNEW 074761 91094 

$MSWR =: 074670 91074 

SMXCNT 073056 8682 86914 

$NULL 001154 5654 8776 8805 

$NwTST= 000001 18464 1848 20724 2074 21784 2180 21934 2195 22414 2243 22814 2283 23214 
2323 23844 2386 24524 2454 24984 2500 25974 2599 26374 2639 27384 2740 
28884 29654 29 30594 30 31684 3170 33094 3311 34144 3416 55054 
3507 36134 3615 37174 38184 820 39194 3921 40214 4023 40824 40 
41334 4135 41824 4184 42324 42844 46286 43374 4339 43904 44434 
4445 44964 4498 45494 4551 46024 4604 46554 4657 47084 4710 47614 4763 
48144 464816 48674 49204 4922 49734 4975 50754 51774 5179 52374 
5239 53034 5305 53784 0 54444 5646 55194 $521 55854 56604 5662 
57264 58014 5803 58674 6 59424 5944 60084 6010 60834 60 61494 
6151 62244 6226 62904 6292 63654 6367 64634 6465 

S$OCNT 073700 8837*  8866* 88794 

SOMODE 073702 8832* 8836 8841 8844* 8855* 88814 

SOVER 073042 8646 8662 8670 8680 86884 

$PASS 01100 5404 6571* 6572% 6583 8676 , 8692 

$POWER 073226 8727 87324 

$PWRDN 073060 1811 86964 8724 

SPWRMG 073214 87274 

$SPWRUP 073132 8706 87124 

$QUES 001222 5864 8805 9037 9089 9105 

$RDCHR 074420 90534 9187 

SRDDEC= **eewe 9190 

$RDLIN 074540 90814 9188 

$RDOCT 074712 . 91214 9189 

$RDSZ = 000010 90744 

$REGAD 001160 5694 


$REGO 001162 S71# = 2224% = 2230* = 2.234% = 2270 = 2.275% = 23.10® = 235% 2403* 2408 2463* 2464 2467 


$REG1 001164 572 

$REG2 0017 5734 

$REG3 001170 5744 

$REG4 001172 5754 2186* 2187 3179 3180*. 3216 3217* 3625 
$REGS 001174 5764 1785* 1786* 1866 1870* 
$RHBA 004136 17764 =2722* = 2724% = 2728 = 27 50 
$RHDB 004140 1777# 

$RHWC 838004142 17784 2580* 2582*  2586*  2588« 
$RTINAD 046354 66044 

$R2A = xeaxee UY 9190 

SSAVRE= xeeaee UY 9190 

$SAVR6 073224 8705* 8713 8714* 8715* 87314 
$SCOPE 072610 . 1805 86444 . 


$SETUP= 000017 17974 1804 1805 1807 1809 1811 1813 1814 1816 6569 8645 9011 9029 
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9042 9111 
2125 3127" 3269* 3374" 3464* 3571% 3676 3779" 3880+ 


= 167700 


000000 
001212 
001146 
001144 
00117€ 
001200 


001262 


56 5801 
60924 62334 


001152 


8683* 


073456 
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$xTSTR 072620 
000000 . 
073701 8845 88804 
SGOCAT= xeeene | 
= 075972 4814 4834 526 5274 5298 5314 5384 589 17514 17544 1802 
18394 18434 19254 19464 19674 19884 20054 2175 24204 65004 
65344 65828 66064 66314 66464 6720 68378 84894 8691 8692 
8805 89484 9037 9040 91044 9105 9117 





. 
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CLEARS 24518 6765 6770 6775 6780 6785 6796 
COMME N 1# 4704 
roe bh 40824 ws 4 4293 4346 4399 4452 4505 4558 4611 4664 4717 4770 4823 , 4876 4929 
& a ‘ 

ERROR 3648 2028 2032 38 2144 2149 2154 2159 = - 2166 2171 2189 2226 2232 2237 2272 

2277 2312 2317 2357 2379 2405 2422 2424 2426 2428 2430 2432 2434 2436 2438 

2440 2442 444 2446 2448 2493 2528 2555 2579 2585 2591 2628 668 26 2720 


ESCAPE 14 4704 


GETPRI 1#. 4708 

GE TSWR 1" = «4708 

MSG 18454 1848 2072 2074 21784 2180 21924 2195 2261 2263 22814 2283 23218 2323 2384m 
2386 = 24514 = 2454 2497H = 2500 2596 = 2599 2636H = 2639. 2737H = 2740 «= 28884 = 2890S 29654" = 2967 
3059" 3061 31674 3170 3094 1 4144 3416 3507 3612 3615 3716 3719 3818% 3820 
3919" 3921  4021# 4023 4082" 4084 41334 4135 41826" 4184 232H 4234 4283" . 42 4339 
4392 4445, 4498 = 4551 4604. 4657 4710s «47634816 4869 =: 4922 9734 4975 075# 5077 
51774 5179 5237# 5239 5305 5380 5446 5521 587 5662. 5728 5803 5869 5944 6010 

ai € —, te 6226 6292 63654 6367 64634 6465 

4 , > 
NEWTST 1# = -470# = 1846 - «2072-2178 = 2193 2241 2281S 2321 2384 = 2452, 2498 = 2597 2637S: 2738 


PUSH 1a 470# 8698 8704 8894 9123 . 
REGCLR 17824 2249 2289 
14 4704 


SCOPE 3658 §1854 2079 2183 2198 2248 2286 $359 23589 2457 2506 2603 2645 2746 2894 


“TSE TPRI te = 4708 


| ; . H 16 
MASSBUS RH70 AND RH11 DIAGNOSTIC . ~ MACY11 30A(1052) 12=JUL=79 10:46 PAGE 205 
CZRHBE.P11  O7=JUN@79 13:44 CROSS REFERENCE TABLE -- MACRO NAME 


SETTRA 91728 9188 9189 
SE TUP 14 | 


SEQ 0202 





MASSBUS RH70 AND RH11 Bh be Pie 


Q7=JUN=7 


C7RMBE . Pi1 
-BAPTB 7 
. SAPTH lf 
~SAPTY lf 
-BSASTA 18 
-SCATC 1¢@ 
~SCMTA 14 
. 8DB2D la 
. $9820 1% 
-$D1V 1a 
. SEOP 1a 
. SERRO 14 
~SERRT 14 
- SMUT 18 
. SPOWE 1 
. SRAND 14 
. SRDDE WwW 
. $RDOC 14 
$READ 14 
$R2AZ 1a 
- $SAVE 1 
.-$SB2D 14 
. $SB20 1A 
-$SCOP 14 
-$SIZE 14 
. SSUPR 14 
- STRAP V4 
.£7YPB 14 
.$1TYPD 1A 
$TYPE le 
$TYPO 14 
-$400A 14 
.1170 lf 
- ABS. .075072 


ERRORS DETECTED: 
CZRHBE .BIN, CZRHBE .LST/CRF /SOL /NL 


3384 470 
3388 532 
338@ 866558 
338" 868996 
3384 8 =©8949 
3384 8692 
3384 8609117 
3384 8§©9037 
3384 8630 
3384 9149 
3384 8882 
3384 88735 
3384 8805 
C00 

0 


RUN-TIME: 89 705 10 SECONDS 
RUN-TIME RATIO: 476/206=2. 3 


CORE USED: 


36K 


(71 PAGES) 


I 
MACY11 30A(1052) 12=JUL=79 


16 
10:46 PAGE 


CROSS REFERENCE TABLE == MACRO NAMES 


: TOC=CZRHBE . SM 


L.CZRHBE .P11 


o 


» 
c 


06 


SEG 0203 


